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PREFACE 



This Program Logic Manual (PLM) is a 
detailed guide to the IBM Disk Operating 
System IPL and Job Control programs. It 
supplements the program listings by 
providing descriptive text and flowcharts. 

Note : Although titles of some DOS 
publications have been simplified, the 
change does not affect the contents of 
the publications. 

For overall system control logic 
description, this PLM is used with six 
other PLMs: 

• Introduction to DOS Logic , GY24-5017. 

• DOS Linkage Editor , GY24-5080. 

• DOS Supervisor and Related Transients , 
GY24-5151. 

• DOS Logical Transients , GY24-5152. 

• DOS System Service Programs , GY24-5153. 

« DOS Librarian , GY24-5079. 

Prerequisite publications that will aid 
in the use of this manual are: 

• IBM System/360 Principles of Operation , 
GA22-6821. 

• DOS System Control and Service , 
GC24-5036. 

• IBM System/360 Disk and Tape Operating 
Systems, Assembler Specifications , 
GC24-3414. 



Publications related in subject matter 
to the seven system control PLMs are: 



• DOS Supervisor and I/O Macros , 
GC24-5037. 



• DOS System Generation , GC24-5033. 



• DOS Operating Guide , GC24-5022. 



DOS Messages , GC24-5074. 



• DOS Data Management Concepts , GC24-3427. 



Titles and abstracts of other related 
publications are listed in the IBM 
System/360 and System/370 Bibliography , 
GA22-6822. 

This manual consists of four major 
sections. The first section is an 
introduction to the IPL and Job Control 
programs. The next two sections are a 
discussion of contents of the IPL and Job 
Control phases. The last section of the 
manual, the appendixes, contains label 
lists, error messages, charts, and tables 
for use as references in analyzing program 
details. 

The detailed flowcharts are identified 
by letters AA through ZZ. Numerals such as 
00 for the program level flowcharts 
identify the more general flowcharts. 
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INTRODUCTION 



INITIAL PROGRAM LOAD (IPL) 

The IPL program must be executed each time 
it is necessary to load a new supervisor 
control program or to change the channel 
and unit assignment for SYSRES. The IPL 
program: 

1. Operates in the supervisor mode. 

2. Loads supervisor into core from SYSRES, 

3. Performs any ADDs and DELETES of 
devices to the supervisor PUB table. 

4. Sets the date and time of day (if 
supported) into supervisor 
communications region. 

5. Places the system in the problem mode. 

6. Exits to EOJ when it is finished. 

Additional information is supplied in the 
section, IPL Program . 



JOB CONTROL PROGRAM ($JOBCTLA-$JOBCTLN) 



The job control program provides job-to- job 
transition for: 



Background programs 



Foreground programs if BJF 
(Batch- Job-Foreground) option is 
specified. This program also prepares 
job steps for execution. (One or more 
programs can be executed within a 
single job. Each such execution is 
called a job step . ) 



On the basis of information provided in 
job control statements. Job Control 
performs the following functions: 



Prepares the system for execution of 
programs in a batched job environment. 

Assigns device address to symbolic 
units. 

Sets up fields in the communications 
region (s) . 

Edits and stores volume and file label 
information. 

Prepares for restarting checkpointed 
programs . 

Clears the problem program area to 
binary zero between job steps. 



Job Control is executed in the problem 
program area and is overlaid by the job 
step it is preparing to execute. For 
additional information, refer to the 
section. Job Control Program. 
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IPL PROGRAM 



INITIAL PROGRAM LOAD PROGRAM ( IPL) , 
CHART 01 



IPL is a 2-phase program consisting of: 



• $$A$IPL1 (a 64-byte bootstrap routine), 
and 

• $$A$IPL2 (less than 4096 bytes). 

The $$A$IPL1 bootstrap program is 
located on SYSRES at 00 00 1 (CC.HH R) . 
The operator sets the channel and unit of 
SYSRES in the load unit switches and 
presses the load key. Microprogramming 
reads the first record (24 bytes) from 
SYSRES into main storage starting at 
location 00. This 24-byte record consists 
of a PSW starting at location and two 
chained CCWs starting at location 8. 

Microprogramming executes the first CCW 
at location 8 r which reads in the next 40 
bytes (3 more chained CCWs and a seek 
address) from SYSRES (cylinder 0, track 0, 
record 2). The second CCW is a seek for 
the $$A$IPL2 program on SYSRES (cylinder 0, 
track 01, record 5). The next three CCWs 
are a search, transfer in channel, and read 
for cylinder 0, track 01, record 5 to load 
the $$A$IPL2 program. Control is 
transferred to the $$A$IPL2 program by 
loading the PSW at location 0. This PSW 
was loaded as part of $$A$IPL1. 

$$A$IPL2 examines the CPU type. If it 
is a System/ 360 CPU, a switch is set 
indicating that a hard wait will occur when 
a machine check is encountered. $$A$IPL2 
clears storage from its own end to the end 
of main storage. A program check is forced 
and the program check new PSW returns 
control to the $$A$IPL2 program. The 
address at which the program check occurred 
is saved as the end- of- storage address. 
There is no provision in the $$A$IPL2 
program to clear main storage below 
location 12,288. 

The transient directory is searched for 
the core image library disk address of the 
supervisor. The supervisor is read into 
main storage starting at location 00. The 
I/O tables that are located within the 
supervisor are moved to the end of the 
supervisor (see Figure 3, step 3). A 
2-device system is then built in low 
storage for the IPL operation. 



Figures 1 and 2 show examples of I/O 
tables built by $$A$IPL2. Figure 1 shows 
the I/O tables for a 1-device system, and 
Figure 2 shows the I/O tables for a 
2-device system. Figure 3 is a map of main 
storage. 



Channel 
I Number 12 3 4 5 6 





LUB Table 





FF 


1 


FF 


2 


FF 


3 


FF 


4 


FF 


5 


FF 


6 


SYSRES 


7 











F 


F 





F 


F 


F 


F 




FOCL 
^ Pointers 


^ 




SYSRES 




DEV 
I 








r 


F F F F 

I I I 


F 


I \ 

F F F 

1 1 






I I I 
F F F F 

I I I 


F 


1 1 

F F F 

i i 






I I I 

SYSTEM 
I I 1 




1 1 
DEV 
1 1 


> PUB Table 


J 


1 1 1 

SYSTEIV 
1 1 1 




1 1 
DEV 

1 l 






l 1 1 

SYSTEIV 
1 1 1 




1 1 
DEV 
1 i 






1 1 1 I 
SYSTEM 
L„1,-.!.J-... 


1 1 
DEV 
1 1 





Note: It is assumed that SYSRES is on channel 2. 

Figure 1. I/O Table for One-Device System 



LUB Table 



FF 



FF 



FF 



FF 



SYSLOG* 



SYSLOG 



SYSRES 



SYSRES 




«FOCL 
Pointers: 
Points to the 
first device 
on channel 



> PUB Table 



SYSGEN 
Entries 

Pointer to 

PUB for 

logical device 



Note: It is assumed that SYSRES is on channel 2 and that the 
communication device SYSLOG is on channel 0. 
* SYSUSE LUB (displacement 18 in the LUB table) is assigned 
for SYSRDR or SYSLOG. 



Figure 2. I/O Table for Two- Device System 
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0000 
0024 
0048 



12,288 



14,445 



Step 1 



PSW 



CCW3 



CCW1 



CCW4 



CCW2 



CCW5 



DISK ADDRESS OF $$A$lPL2 



$$A$IPL2 - Clears storage, loads 
supervisor moves I/O tables from 
SUPVR area to end of supervisor, 
builds two device system and sets 
storage protection keys. 



$$A$IPL1 



0000 
0024 

0048 



$$A$IPL2 



End of Storage 

Step 1 - represents the main storage map after $$A$IPL2 is 

loaded. 
NOTE: Storage addresses are in decimal notation. 



12,288 



20,480 
or 28,672 



Step 2 



PSW 



CCW3 



CCW1 



CCW4 



CCW2 



CCW5 



DISK ADDRESS OF $$A$IPL2 



For a supervisor greater than 8K 
$$A$IPL2 is moved to 6K beyond 
the end of the supervisor. 



$$A$IPL2 - Clears storage, loads 
supervisor, moves I/O tables from 
SUPVR area to location 16,384, 
builds two device system, and sets 
storage protection keys, 



$$A$IPL1 



$$A$IPL2 



End of Storage 

Step 2 - represents the main storage map after $$A$IPL2 is 
loaded. 



0000 



End 

of -* 

SUPVR 



EOS+^ 
X'1000 



Step 3 



Supervisor Constants 



Supervisor loaded by $$A$IPL2 
SYSGEN I/O Tables 



SYSGEN I/O tables moved to end of 
supervisor 



$IPLRT2 is loaded into this area at 
the finish of $$A$IPL2 



> Supervisor 



$IPLRT2 



End of Storage 

Step 3 - represents the main storage map after 
$$A$IPL2 loads the supervisor. 



0000 



End 

of — *- 

SUPVR 



Step 4 



Supervisor Constants 



SYSGEN I/O tables moved back 

into supervisor at the end of $IPLRT4 



End of Job transient ($$BEOJ3) 
loaded into problem program area at 
finish of $IPLRT4 



> Supervisor 



End of Storage 

Step 4 - represents the main storage map after 
$IPLRT4 is executed. 



Figure 3. IPL Main Storage Map 
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After the system I/O tables have been 
moved, a PUB is built in low storage for 
SYSRES. A LUB is assigned for this PUB and 
the FOCL is set to point to the PUB for the 
SYSRES device. The system is put into the 
wait state and the operator has the option 
of selecting the communication device 
desired for IPL. If the desired 
communication device is: 

1- A card reader . and it is already 
assigned as SYSRDR, the operator 
presses the external interrupt key 
causing an external interrupt. 

2. A card reader , and it is not assigned 
as SYSRDR, the operator presses the 
start key on the reader causing an I/O 
(device end) interrupt. 

3. A console printer-keyboard , the 
operator presses the request key 
causing an I/O attention interrupt. 

After the operator has taken the 
appropriate action for choosing a 
communication device, a PUB and LUB are 
added and the FOCL is updated to show the 
new device. This completes building of the 
2-device system for IPL. 

A check is made to determine if the 
storage protection feature is supported. 
If so, the storage protection keys are set. 
The supervisor area, in blocks of 2K, 
receives a storage protection key of 0. 
The upper part of the supervisor that is 
not an even multiple of 2K and the 
remainder of main storage are not 
protected. They receive a storage 
protection key of 1. The $$A$IPL2 issues a 
SVC of 4 to load the $IPLRT2 program, 
overlaying the $$A$IPL2 program. 



$IPLRT2, CHART 02 



The $IPLRT2 program is loaded and executed 
every time the operator chooses to IPL the 
system. It is loaded (by the $$A$IPL2 
program) starting at location EOS+4096 (see 
Figure 3, step 3). Before loading $IPLRT2, 
the $$A$IPL2 program has moved the system 
I/O tables to high core. A 2-device 
system, SYSRES and SYSUSE (SYSUSE=SYSRDR or 
SYSLOG) , has been built by the $$A$IPL2 
program for IPL operations. 

The $IPLRT2 program performs the 
following functions: 

• Scans the LUB table entries in each 
partition and establishes partition 
ownership for each entry. 



Checks for RMS support. When the IPL 
program is executed on a System/360 
CPU, System/370 functions are negated, 
RETAIN/370 support is turned off (if 
present) , and coding to simulate 
System/360 support is moved into the 
supervisor. In the case of a 
System/370 CPU, the address of the 
extended logout area is found and 
$$BCCHHR is fetched to build the load 
list. 



• Monitors core usage and indicates 
whether there is enough core storage 
available to load both $IPLRT3 and 
$IPLRT4 into core at the same time. 
When there is not enough core storage 
available, a switch is set, indicating 
that $IPLRT3 and $IPLRT4 will be 
separately loaded into the same area as 
needed. 

• Contains the error subroutines to issue 
the error messages when necessary. 

• Loads the appropriate phase (s) into 
core storage after the $IPLRT2 program. 
If the first control card is a SET 
card, $IPLRT4 is loaded. If the first 
control card read is a DEL or an ADD 
card and there is sufficient core 
storage available to allow both $IPLRT3 
and $IPLRT4 to be loaded, both are 
loaded. If there is not sufficient 
core storage available to have $IPLRT4 
loaded after $IPLRT3, each is loaded 
into the same area as it is needed. 

The ADD, DEL, and SET statements are 
entered from the IPL communication device 
(SYSRDR or SYSLOG) . The formats for these 
statements are described in Figure 4. 

After a card is read, the operation code 
is evaluated by a translate and test 
instruction to determine the type of 
statement. 



$IPLRT3, CHART 03 

The $IPLRT3 program is loaded and executed 
only when ADD or DEL control cards are 
submitted to the IPL program. It is loaded 
by the $IPLRT2 program. 

The $IPLRT3 program performs the 
following functions: 

• Adds a device to the system. 

• Deletes a device from the system. 
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I Add Routine ($IPLRT3) 



The add routine checks to ensure the device 
is not already assigned. It then 
determines where to add the PUB in the PUB 
table and moves all the PUB entries beyond 
this point down one PUB length to make room 
for the new PUB. The new PUB is then 
inserted in the area just vacated. The LUB 
table and FOCL pointers are updated to 
reflect the new entry and the routine 
returns to read another control statement. 



Checks the channels for file-protect 
support for each device when DASDFP 
option is specified. 

Scans the PUB table. If a 3211 is 
found, $IPLRT4 loads $$BUFLDR. 



I Set Routine ($IPLRT4) 



I Delete Routine ($IPLRT3) 



The delete routine first checks to see if 
the device to be deleted is in the PUB 
table and then determines the location in 
the PUB table of the PUB to be deleted. 
All PUBs beyond this point are moved up one 
PUB length overlaying the PUB to be 
deleted. The LUB table and FOCL pointers 
are updated so they no longer point to a 
nonexisting PUB entry. The routine returns 
to read another control statement. 



The set time of day routine determines the 
operand format of the set statement. 

• The DATERT subroutine converts the 
month, day, and year to decimal. This 
information is then stored in the 
system date field of the communication 
region (displacement 79). 

• The TIMERT subroutine is used if the 
timer feature is supported. It 
converts the hours, minutes, and 
seconds to decimal and determines the 
time of day in total seconds. The 
total seconds, multiplied by 300, is 
stored at core location X'54*. 



SlPLRTt*, CHART 03 



The $IPLRT4 program is loaded and executed 
every time the operator decides to IPL the 
system. It is loaded by the $IPLRT2 
program. 

The $IPLRT4 program performs the 
following functions: 

• Sets the system date. 

• Sets the system time of day, if the 
timer feature is supported. 



The SET card signals the end of the 
control statements. The system assignments 
for SYSRES and the communication device 
(SYSRDR or SYSLOG) are checked and 
permanently assigned. The system I/O 
tables are moved from their temporary 
location in high core to their permanent 
location in the supervisor area. This move 
overlays the two-device IPL I/O tables 
(that were built by $$A$IPL2) and finishes 
the IPL operation. 

The end-of-job transient is loaded with 
a SVC 14 to initiate normal job processing. 
If the supervisor contains teleprocessing 
support, $$BEOJ3 is fetched; otherwise, 
$$BEOJ4 is fetched. 
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ADD -- Add a Device to the PUB Table 
T> „„ T _ 

I Operation | Operand 



I ADD I X'cuu' [(k) ],devicetype[, X'ss'] I 

X'cuu' = Channel and unit numbers in hexadecimal 

k = S, if the device is switchable (is physically attached to two adjacent channels). 
The designated channel is the lower of the two channels. 

k = 0-255 indicates the priority of the device, if the device cannot be switched. The highest priority is 0. 
If k is not given, a priority of 255 is assumed. 

devicetype* = 2400T7 for 7 - track, IBM 2400 Series Magnetic Tape Units. 
2400T9 for 9 - track, IBM 2400 Series Magnetic Tape Units. 
1442N1 for 1442N1, IBM Card Read Punch. 



X!ss 



;' = Device specifications used for tape mode. If device specifications are not specified, Xlss 1 has the following 
set values: 

X'CO' for 9 -track tape 

X'90' for 7 -track tape 

X'00' for nontapes 
If you specify X'C8' for an 800 BPI single- density 9 -track tape drive, you will save time during the tape OPEN. 
X'00', X'01', X'02', and X'03' are invalid as X'ss' for magnetic tape. These four values are used to specify SADxxx 
requirements for IBM 2702 lines*. X'ss' is required for the IBM 1255, 1259, 1270**, 1275**, 1412, 1419, and 1419P 
device types. It specifies the external interrupt bit (in the old PSW) used by this device to indicate READ COMPLETE. 
The specifications are: 



X'01' PSW bit 31 
X'02' PSW bit 30 
X'04' PSW bit 29 



X'08' PSW bit 28 
X'10' PSW bit 27 
X'20' PSW bit 26 



* Device type codes and a complete list 
of density settings can be obtained from 
the Supervisor and Transients PLM. 



f *This device is not available 
in the United States of 
America. 



The end -of -block character (§) (alter code 5) must be given after each ADD statement if the communication device is a 
printer -keyboard. 

DEL -- Delete a Device from PUB Table 

„„ T 1 

I Operation I Operand I 

| + H 

I DEL I X'cuu 1 I 

I 1 _„ I 

Where cuu is the channel and unit numbers, in hex, of the device to be deleted. 

The end -of - block character (§) (alter code 5) must be given after each DEL statement if the communication device is a 
printer -keyboard. 



"1 
I 

H 

I 

-J 



SET -- Set Date and Time of Day 

, T 

I Operation I Operand 

|_ + 

I SET I [DATE=nl] [,CLOCK=n2] 

I 1 

The entries in the operand represent the following: 

DATE = n1 Sets the system date to the specified value. n1 has one of the following formats: 

mm/dd/yy 
dd/mm/yy 

Where mm specifies the month, dd specifies the day, and yy specifies the year. 
The format used is that selected when the system was generated. 

CLOCK = n2 Must be given at I PL time if the timer feature is present. 

Sets the system clock to the specified value. n2 has the following format: 

hh/mm/ss 

Where hh specifies hours (00-23), mm specifies minutes (00-59), and ss specifies seconds (00-59). 



Figure 4. ADD, DEL, and SET Statements 
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JOB CONTROL PROGRAM 



The job control program provides job-to- job 
transition for background programs and, 
optionally , for foreground programs. It 
also prepares program job steps for 
execution. (One or more programs can be 
executed within a single job. Each such 
execution is called a job step.) To obtain 
job-to- job transition for foreground 
programs. Batch- Job-Foreground (BJF) 
support must be specified at system 
generation time, and a BATCH command must 
be issued by the operator. Job Control 
then provides this feature in the partition 
specified by the operand of the BATCH 
command if the following minimum 
requirements are met: 



as card images preceding the 
compilation. 

The job control program is executed in 
the program area and is overlaid by the job 
step it is preparing for execution. A JOB 
statement in the input stream marks the 
beginning of a job and a /£ statement marks 
the end of a job. An EXEC statement calls 
for execution of a job step. A job step is 
normally ended with the EOJ macro. 



I/O FLOW 



At least 10K of main storage in the 
partition. 

Separate system I/O files for the 
partition. 



The I/O flow for the job control program 
consists of: 

© Input 

SYSRDR 
SYSIPT 



Job Control performs various functions © Output 
on the basis of information provided in job SYSLST 
control statements: SYSLNK 



© Prepares programs for execution. 

o Assigns device addresses to symbolic 
units. 



I/O 

SYSLOG 



Sets up field in the communication 
region (s) . 



PROGRAM FLOW 



Edits and stores volume and file label 
information. 

Prepares for restarting checkpointed 
programs. 

Clears the program area to binary zeros 
between job steps. 

Prepares input for the linkage editor 
program if the LINK option has been 
specified. The statements: ENTRY, 
ACTION, PHASE, and INCLUDE, when 
present in input stream, are copied to 
SYSLNK as card images. An INCLUDE 
statement with a blank operand causes 
the contents of SYSIPT to be copied to 
SYSLNK until a /* statement is read 
from SYSIPT. Blank cards from SYSIPT 
are ignored. This preparation for the 
linkage editor program is valid for the 
BG partition only, unless the 
supervisor includes the PCIL option. 
If the LINK option is not specified and 
the CATALR card precedes the PHASE 
card, these cards are copied to SYSPCH 



Functionally, Job Control consists of eight 
phases and one B- transient that are 
identified as $JOBCTLA, $JOBCTLD # $JOBCTLF, 
$JOBCTLG, $JOBCTLJ, $JOBCTLK, $JOBCTLM, 
$JOBCTLN, and $$BLSTIO. 



$JOBCTLA (CHART 04) 



This phase is the initial entry into Job 
Control. It is loaded every time Job 
Control is fetched and is considered the 
root phase. (It is resident in main 
storage at all times during job control 
execution and contains routines that are 
used by the other phases of Job Control.) 

Job control input is read from SYSRDR or 
SYSLOG depending on the setting of the job 
control input switch (COMREG+56, bit 2). 
As each control statement is read, it is 
analyzed to determine which of the 
processing routines is to be used. The 
phase containing the correct processing 
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routine is loaded if it is not already in 
main storage as a result of the previous 
control statement. 

Figure 5 represents the storage 
allocation for Job Control. 



10. 


HOLD 


11. 


RELSE 


12. 


CATALR card (not a control statement) 


13. 


NOLOG 


14. 


LOG 


15. 


STOP 


16. 


PAUSE 


17. 


ALLOC 



$JOBCTLD (CHARTS 05 AND 06) 



Contains the processing routines for the 
following control statements: 



1. 
2. 



ASSGN 
CLOSE 



$JOBCTLF (CHART 07) 



Contains the processing routines for the 
following control statements: 



1. 


DVCDN 


2. 


DVCUP 


3. 


LISTIO 


4. 


RESET 


5. 


UNA 


6. 


UNBATCH 


7. 


MAP 



$JOBCTLK (CHARTS 13 AND 14) 



Contains processing routines for the 
following control statements: 



1. 


RSTRT 


2. 


LBLTYP 


3. 


VOL 


4. 


TPLAB 


5. 


DLAB 


6. 


XTENT 


7. 


TLBL 


8. 


DLBL 


9. 


EXTENT 



$JOBCTLM (CHART 15) 



Initializes the recorder file and contains 
processing routines for the ROD control 
statement. 



$JOBCTLG (CHARTS 08 AND 09) 



Contains the processing routines for the 
following control statements: 



1. 


CANCEL 


2. 


/€ (EOJ) 


3. 


EXEC 


4. 


JOB 


5. 


OPTION 



$JOBCTLJ (CHARTS 10 , 11, AND 12) 



Contains processing routines for the 
following control statements: 



$J0BCTLN (CHART 16) 



Provides interface between the DOS system 
and $JOBACCT to allow the user to access 
Job Accounting information. This phase 
contains processing routines for the 
following conditions: 

1. Normal end of job. 

2. Simulated end of job. 

3. End of job and pause. 

4. EXEC card encountered. 

Note : $JOBCTLN interfaces with $JOBACCT 
phase supplied by user. 



1. 


ACTION 


2. 


ENTRY 


3. 


PHASE 


4. 


INCLUDE 


5. 


DATE 


6. 


SET 


7. 


UPSI 


8. 


MTC 


9. 


UCS 



$$BLSTIO 



This B-transient contains subroutines used 
by DVCDN and LISTIO control statement 
processors of $JOBCTLF. When required by 
these processors, $$BLSTIO is fetched (SVC 
2) into supervisor B-transient area. 
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, Supervisor 



AH byte counts are 

approximations and 

are included only to 

show relative size. 



SJOBCTLG 



$JOBCTLD 




Figure 5- 



job 



control 



Storage Allocation 



job control Program 
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CHARTS 



Chart 01. Initial Program Load ($$A$IPL1 and $$A$IPL2) 



(Initial Program A 
Load (I PL) J 



IJBIP120 



IPL BOOTSTRAP (SSASIPL1) 



Chart AA 



The operator sets the channel and unit of 
SYSRES in the load unit switches and presses 
the load key. Microprogramming then reads 
the first 24-byte record consisting of a 
PSW q.nd two CCWs into main storage starting 
at location 00. It executes the first CCW 
at location 8 which reads the next 40 bytes 
from SYSRES into main storage. The SSASIPL2 
program on SYSRES is loaded into storage 
starting at decimal location 12,228. 



IJBIP210 



CLEAR CORE, 
(SSASIPL2) 



LOAD SUPERVISOR 



Chart AB-AC 



If CPU is not a System/370, set for hard wait on machine 
check. $$A$IPL2 clears storage beyond the supervisor and. 
forces a program check to get its return address to S$ASIPL2 
and to determine the storage size of the system. The 
transient directory is searched to find the address of the 
supervisor nucleus. When the supervisor. entry is found, 
the $$A$IPL2 program is moved to the core location equal 
the length of the supervisor plus 1 OK (minimum BG size) 
minus 4K (maximum length of Bootstrap). The supervisor 
is then loaded into main storage. 



ENDRD 



BUILD TWO DEVICE SYSTEM 
(SSASIPL2) 



Chart AD - AH 



1 . Puts the end of storage address in the communication region. 

2. Moves the SYSGEN I/O tables to end of supervisor and 
builds a one device system in low storage for SYSRES. 

3. Puts the system in the wait state and gives the operator the 
choice of a 1052, a card reader, or an unassigned card 
reader, as the communication device. 

4. Adds the I/O tables for this communication device to the 
I/O tables for SYSRES and completes the two device 
system for IPL operation. 



NO. 



SETPROT 




SET STORAGE PROTECTION KEYS 
SSASIPL2 



Chart AD 



If the storage protection feature is available on the system, a 
key of is set for the supervisor region and key of 1 is set for 
the rest of storage. The new PSWs are restored and the 
program exits by loading and transferring control to SIPLRT2. 



(I 



SVC4 Load 
PLRT2 Chart 02 



t) 
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Chart 02. Initial Program Load ($IPLRT2) 



GETADD 



MONITOR CORE USAGE 



Chart AL 



Load $IPLRT3 (and SIPLRT4 if there is 
enough room . ) 



03 
ADDRTN 



/" SIPLRT2 \ 
I Chart 01 J 



BEGIN 



INITIALIZATION 



Chart AJ 



Load the root phase's base. Determine the 
load configuration of SIPLRT3 and SIPLRT4 
from available main storage. The size of 
main storage and the location of the system 
I/O tables in main storage is found. The 
number of PUBs, SABs, TEBs and/or TEBVs 
in use is calculated . 



READGO 



CHECK RMS SUPPORT 



Charts AJ and AK 



If RMS is in supervisor; 

• If this is a System/360 CPU, turn off 
System/370 functions and move coding 
to supervisor to simulate System/360 
support . 

• If this is a System/370 CPU, get the 
address of the extended logout area . 



MONITOR 



READ AND EVALUATE 
CONTROL CARD 



Chart AK 



The control statement just read is evaluated 
to determine if the op code is a legal control 
statement and the type of operation (ADD, 
DEL or SET). After the op code is analyzed, 
control is given to the appropriate routine to 
service the statement . 



ADD 



GETDEL 




GETSET 



MONITOR CORE USAGE Chart AL 


Load $IPLRT3 (and $IPLRT4 if there is 
enough room .) 


^ 


' 



MONITOR CORE USAGE Chart AM 



Load $IPLRT4 if it is not already in main 
storage . 



03 
DELRTN 



03 
SETRTN 
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Chart 03. Initial Program Load ($IPLRT3 and $IPLRT4) 



( $IPLRT3 J 



m 



ADDRTN 



ADD 




m 



DEL 



DELRTN 



ADD A DEVICE ROUTINE Charts AR and AS 



The first operand is checked for a key field 
(multiplex or burst device indicator). The 
channel and unit numbers are checked and 
converted to hex. The third operand, if any, 
is then processed. The BLDPUB subroutine adds 
the device to the PUB table. The CHURTN 
subroutine updates the FOCL. The LUURTN 
subroutine assigns a LUB for the PUB fust added. 
After the I/O tables are updated, the routine 
returns to READGO to read another control 
statement . 



02 
READGO 



DELETE A PUB ROUTINE 



Chart AT 



The operands of the delete cards are converted 
to hex and the PUB table is searched to find the 
PUB to be deleted. All PUB entries beyond the 
PUB to be deleted are moved up one entry, 
overlaying the selected PUB. The FOCL and LUB 
tables are updated at CHURTN and LUDRTN, 
respectively, so they do not point to a nonexistinc 
PUB. After the I/O tables are updated, the 
routine returns to READGO to read another 
control statement. 



( SIPLRT4 j 



SETRTN 



02 
READGO 



SET TIME OF DAY ROUTINE 



Chart AX 



The date and time of day are set in the communi- 
cation region. The FDSRTN subroutine gets the 
operands from the control statement. The 
DATERT subroutine puts the date in the communi- 
cation region. If the timer feature is present, the 
TIMERT subroutine puts the time of day in core at 
location X'54' . The SET routine terminates the 
reading of control statements. 



USNRES 



ASSIGN SYSRES AND SYSLOG 



Chart AX 



The PUBs for SYSRES and SYSLOG or SYSRDR are 
checked to Insure that they are assigned only to a 
single logical unit and that they are properly 
built. The PUBs are then permanently assigned 
as the system residence unit and the system 
communication device. 



OFFINT 



MOVE SYSTEM I/O TABLES TO 
LOW CORE 



Chart AY 



The system I/O tables are moved to their 
permanent location in the supervisor area. 
If there are any 321 1 's in the PUB table, 
load SSBUFLDR. A message "IPL complete" 
is printed (if SYSLOG was the communication 
device) and the program exits by loading the 
End of Job transient (SSBEOJ). 



f SVC 14 \ 

I End of Job* J 



*See Logical Transients PLM. 
If the Supervisor contains 
teleprocessing, $$BEOJ3 is 
fetched; otherwise, $$BEOJ4 
is fetched . 
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Chart 04. Job Control ($JOBCTLA) Root Phase 



*05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
16 



V 



© 



C SJOBCTLA J 



JOBCTL 



INITIALIZATION 



Chart BA 



Initializes the job control program as follows: 
1 . Loads base registers. 

2. Seizes control of the system. 

3. Performs relocation of job control . 

4. Sets up a table of NICLS and FICLS for 
system and programmer units in each partition. 

5. Sets track capacity constants for SYSRES 
device (2311 or 2314). 

6. Checks available record counts if system units 
are supported on a DASD device. 

7. Saves the LUBs to unassign extent JIBs of the 
previous job step . 

The main storage area that contains this coding 
is subsequently used as a 120 byte I/O area. 
Control statements are read into and messages 
are displayed from this area . 



CONTROL 



■CONTROL STATEMENT READ 



Chart I 



4. 



5. 



Reads control statement. 

Ignores blank statements. 

Checks column 1 to determine if the statement 

is from the operator or the programmer. An 

indicator is set to control error processing in 

the phase vector table lookup routine. A 

blank in column 1 indicates an operator 

statement, //in columns 1 and 2 indicates 

a programmer statement. 

Scans the control statement for the first 

operand (may be //,/*,*, or the operation 

field). 

Performs initialization for the phase vector 

table lookup. 



BTLOOP 



PHASE VECTOR TABLE LOOKUP 



Chart BC 



1 . The phase vector table is searched for an argu- 
ment that is equal to the current operand (reg- 
ister POINT1 is pointing to column 1 of the 
statement or to the first character of the opera- 
tion field). See Figure 8, Appendix A, for the 
format of an entry in the phase vector table . 

2. The operand is checked for validity. 

3. The statement is logged as specified in the 
condition switches of the found entry. 

4. If the correct processing phase is not in main 
storage it is loaded (SVC 4) . 

5. Processing for the operands //,/*,*, or 
IGNORE is in the root phase and they are 
processed as follows: 

// - The statement is scanned to make the 

next operand (operation field) available 
for processing . Exit to ■ 

/* - Ignored. Exit to ■ 
Ignored . Exit to 



IGNORE - The Job Control input switch is 

set to indicate SYSRDR. Exit to — 
6. Control is transferred to the correct processing 
routine as specified by table A, B, C, D, 
E, or F for all other operands. 



Note: 

Job control is entered from the supervisor fetch routine. It can be entered normally 
by means of the EOJ macro or abnormally from the B -transients $$BILSVC, 
$$BPCHK, $$BTERM, $$BEOJ, $$BEOJI . In all cases the B -transient $$BEOJ is 
used to issue the actual fetch for Job Control ($JOBCTLA). This phase includes: 
1 . The initialization routine (JOBCTL). 

2. The control statement read routine (CONTROL) 

3. The phase vector table (see Figure 8 in Appendix A). 

4. The root phase subroutines (Charts BD - BK). 

5. The root phase error message routines (Charts BL-BM). 

6. Relocation subroutine Chart BN . 

Items 4 and 5 are used by other job control phases. 



O 
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TABLE G v 


PHASE 


$JOBCTLN 


Operand 
EXEC 


Chart 
16 
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TABLE A 



PHASE 



$JOBCTLD 



Operand 
ASSGN 
CLOSE 



Chart 
05 
06 
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TABLE C 


\ 


PHASE 


$JOBCTLG 




Operand 
CANCEL 


Chart 
09 




EOJ-/&- 

EXEC 

JOB 


09 
09 
09 






OPTION 


08 



TABLE E 



PHASE 



$JOBCTLK 



Operand 



RSTRT 

LBLTYP 

VOL 

TPLAB 

DLAB 

XTENT 

DLBL 

EXTENT 

TLBL 



Chart 
14 
13 
13 
13 
13 
13 
14 
14 
14 



NO 



TABLE B , ' 



PHASE 



$JOBCTLF 



Operand 

DVCDN 

DVCUP 

LISTIO 

MAP 

RESET 

UNA 

UN BATCH 



TABLED u 



PHASE 



$JOBCTLJ 



Operand 



ACTION 

ENTRY 

PHASE 

INCLUDE 

DATE 

SET 

UPSI 

MTC 

UCS 

HOLD 

RELSE 

CATALR 

LOG 

NOLOG 

PAUSE 

STOP 

ALLOC 



TABLE F 



PHASE 



$JOBCTLM 



Operand 
ROE) 
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Chart 05- Job Control ($JOBCTLD) Statement Processor (Part 1 of 2) 



ASSGN 



" Chart 04 
Table A 



SCAN and CHECK 1st and 2nd OPERANDS 



Chart CA 



1 . Scans the ASSGN statement for the 1st operand, SYSXXX. 

2 . Checks and converts SYSXXX to the symbolic unit address, 
logical unit and class. 

• The unit may be SYSREC when RF=YES, or when RF=NO 
if OBR/SDR/MCRR records are to be displayed. 

a The unit can not be SYSRES. 

3. ASSGNO: The unit can not be SYSLOG if a foreground 
program is loaded. 

4. Scans the ASSGN statement for the 2nd operand, Device 
address. This operand must be X'CUU', UA or IGN . If 
the device address is UA or IGN, exit to ASSGNB3. 

5. Computes the PUB pointer and PUB address of the physical 
device specified by X'CUU' . The device type and mode 
are taken from the PUB and saved for use in the cross 
assignment verification routine. 

• The device can not be flagged as down . 

• If the device is being assigned to SYSLST, SYSPCH or 
SYSOUT and it is a magnetic tape unit, it can not be 
file protected . 

o If the device is not a DASD device it can not be 
owned by any other partition . 



ASSGN6 



CROSS ASSIGNMENT VERIFICATION 



Chart CB 



Checks for physical compatabiliry between the device being 
assigned and the logical unit to which it is being assigned 
as well as logical units to which it is already assigned . 



ASSGN B4 




COMPLETE SCAN OF OPERANDS 



Chart CD 



Processes the remaining (3rd and 4th) optional operands, ALT 
orX'SS 1 (MODE), or TEMP. The operands, if present, are 
checked for validity and switches are set to control subse- 
quent processing . 

ASSGN 402: Entry at this point processes only the 4th 
operand, TEMP . 



YES 



ASSGN B5 




FINAL VERIFICATION for NORMAL 
ASSIGNMENT 



Chart CE 



Determines if the assignment is for SYSOUT, SYSLNK, or 
SYSCLB and performs final testing. If the assignment is for 
SYSOUT it cannot be temporary. If the assignment is for 
! SYSLNK the job control switch JBCSW1 , bit is set off to 
prohibit linkage editor output on SYSLNK . If the assign- 
ment is for SYSCLB, it cannot be an ignore. 



F© 



ASSGN B8 



MAKE ALTERNATE ASSIGNMENT 



Chart CH 



1 . Tests the validity of the alternate assignment. 

2. Determines if the mode of the assignment is equal to the 
mode of the LUB. 

3. Makes alternate assignment in attached JIB. 

4. Sets the partition owner flag on in the PUB. 



ASSGNB3 



VERIFY and STORE UA or IGN ASSIGNMENT 



Chart CC 



1 . Sets byte of the LUB being generated (in a work area) 
to hex FF (unassigned code) if the assignment is UA . 

2. Sets byte of the LUB being generated (in a work area) 
to hex FE (ignore code) if the assignment is IGN . 
o If IGN the logical unit cannot be SYSRDR, SYSIPT, 
or SYSIN. 



ASSGNB6 



0- 



u 



© 



<2L 



cf 



MAKE NORMAL STANDARD ASSIGNMENT 



Chart CF 



1 . If assignment is temporary exit to ASSGN22 . 

2 . Closes the file if a close is in operation . 

3. If in SYSOUT mode and if the assignment is for SYSLST 
the JIB pointer in the SYSLST LUB is nulled. 

4. If in SYSOUT mode and the assignment is for either 
SYSPCH or SYSOUT the JIB pointer in the SYSPCH LUB 
is nulled. 

5. ASSGN23A: Resets the LUB to standard unassigned. If 
the new assignment is IGN or if it is not for a tape device 
go to ASSGN24. 

If the new assignment is for a tape device and if MODE is 
specified the standard mode and ownership bits of the 
PUB +7 are modified. 

6. ASSGN 25: Updates the set mode byte of the PUB (PUB+5) 

7. ASSGN24: Makes the actual assignment by moving the 
new LUB to the LUB table from the work area . 

• For multiprogramming with OBR/SDR/MCRR processing, 
SYSREC h assigned for each partition. 



ASSGN B7 



TERMINATE ASSIGNMENT AND 
OPEN TAPE FILES 



Charts CJ, CK 



1 . Sets open flag off in all DFBs using this device. 

2. If assignment was for SYSIN, SYSIPT must also be 

assigned. (SYSRDR has been) 

If assignment was for SYSOUT, SYSLST must also be 
assigned (SYSPCH has been) 



3 . If the assignment is for one of the syste 
SYSIPT, SYSPCH, or SYSLST, the file 
» If the file is a tape unit and is not at load point the 
open is bypassed . 



units SYSRDR 
opened . 



04 

, A/CONTROL 



ASSGN22 



9 




MAKE NORMAL TEMPORARY ASSIGNMENT 



Chart CG 



1 . The temporary assignment cannot be for SYSLST or 
SYSPCH if the SYSOUT mode is in effect. 

2. Closes the file if a close is in operation. 

3. ASSGN28; attach a JIB to the new LUB in the work area. 

4. Sets the standard assignment flag on in the old LUB. 

5. Stores the old LUB in the JIB that is attached to the new 
LUB (work area) . 

6. If the device is tape and MODE is specified to go to 
ASSGN25 to update the PUB. 

7. If the device is not tape or MODE is not specified, it is 
not necessary to update the PUB. 



Charts 25 



Chart 06. Job Control ($JOBCTLD) Statement Processor (Part 2 of 2) 



" Chart 04 
Table A 



CLOSE 



CLOSE STATEMENT PROCESSOR 



Chart CL 



1 . Closes a logical unit. 

2. The unit may optionally be reassigned to another 
device, made UA y made IGN, or if tape, it may be 
specified as an alternate (ALT). If the unit is a 
system unit, one of the optional operands must be 
specified . 

3. If an optional operand is not specified, the program- 
mer logical unit is closed and the assignment remains 
unchanged . 

4. If an optional operand other than ALT is specified, 
the ASSGN statement processor (Chart CA) is 
entered at the label ASSGNO to make the actual 
assignment . 

5. An ALT assignment specifies that the logical unit is 
to be closed and an alternate unit is to be opened 
and used. The B- transient SSBCMT07 is fetched 
to open the alternate device. 

• The ALT operand is valid only for the system 
output units SYSPCH, SYSLST, or SYSOUT 
assigned to magnetic tape. 



CONTROL 
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Chart 07. Job Control ($JOBCTLF) Statement Processor 



v 



*Chart04 
Table B 



DVCUP 



DVCUP STATEMENT PROCESSOR 



Chart DK 



Makes a device available after it has been down . The 
procedure is: 

1 . Compute the PUB address of the device specified by 
the operand X'CUU'. 

2. Set the job control flag in the PUB to indicate the 
device is up . 

3. If the device is tape, the standard mode is restored. 

zi 



MAP 



MAP STATEMENT PROCESSOR 



Chart DK 



Displays on SYSLOG the current allocation of each 
main storage area (supervisor background, foreground 1, 
and foreground 2). Included is the upper limit of each 
area as well as the name of the program currently being 
executed. See map output in Supervisor and Transients 
PLM. 



LISTIO 



LISTIO STATEMENT PROCESSOR 



Charts DA - DE 



Lists the I/O assignments of the system as specified by 
one of the following operands. 

• SYS 

• PROG 

• Fl 
o F2 

• ALL 

• SYSXXX 

• UNITS 

• DOWN 

• UA 

• X'CUU' 

• Fetches $$BLSTIO into transient area 
Refer to Appendix D for sample printouts. 



UNA 



UNA STATEMENT PROCESSOR 



Charts DM, DN 



1 . All I/O assignments of the foreground area(s) 
specified are unassigned except SYSLOG and 
SYSRES. 

2. The operands of the UNA statement, Fl and/or F2, 
can appear in any order. 

3. The area(s) specified must be currently inactive. 



DVCDN 



DVCDN STATEMENT PROCESSOR 



Charts DH,DJ 



Indicates that a device in the PUB table is no longer 
available to the system. The procedure is to: 
1 . Indicate the physical device is down . 

2. Unassign all standard assignments to the device in 
.LUBand JIB. 

3. Unassign all temporary assignments to the device in 
LUB. 

4. Remove all alternate assignments to the device. 

5. Log all assignments that have been altered. 



RESET 



RESET STATEMENT PROCESSOR 



Charts DF,DG 



Resets logical unit assignments to standard as specified 

by one of the following operands: 

1 . ALL -Resets all assignments in current partition. 

2. SYS -Resets all system assignments in current 
partition . 

3. PROG -Resets all program assignments in current 
partition . 

4. SYSXXX -Resets a single logical unit. 



T 



DETACH 



DETACH STATEMENT PROCESSOR 



Chart DL 



1 . 



3. 



Checks for SYSRDR, SYSIPT, SYSPCH, or SYSLST 

not left assigned to tape or disk. 

Detaches the foreground area by inserting hex 80 

in byte Oof PI B. 

Issues a WAIT to a nonexistent CCB. 



CONTROL 
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Chart 08. Job Control ($JOBCTLG) Statement Processor (Part 1 of 2) 



I * \ * Chart 04 
\/ Table C 

7^ 














OPTION 






Table h 








OPTION STATEMENT PROCESSOR Chart EL 






PA RAM 


RTN LABEL CHART 




Records the job control options requested 
by the programmer. The parameters of the 
OPTION statement are scanned, one at a 
time, and control is transferred to the 
correct processing routine as shown in 
Table 1. 






DECK 


DECK 

Set DECK option ON, COMREG+58, bit 


EM 


NODECK 


NODECK 

Set DECK option OFF, COMREG+58, bit 


EM 


LIST 


LIST 

Set LIST option ON, COMREG+58, bit 1 


EM 










' 


NOLIST 


NOLIST 

Set LIST option OFF, COMREG+58, bit .1 


EM 


1 




^^Last \ 


LISTX 


LISTX 

Set LISTX option ON, COMREG+58, bit 2 


EM 


/ Paran 
x. Proce 


neter >v NO 




ssed / 




NOLISTX 


NLISTX 

Set LISTX option OFF, COMREG+58, bit 2 


EM 








YES 


SYM 


SYM 

Set SYM. option ON, COMREG+58, bit 3 


EM 


1 


' 




NOSYM 


NOSYM 

Set SYM option OFF, COMREG+58, bit 3 


EM 




1 04 1 




V 

CONTROL 


XREF 


XREF 

Set XREF option ON, COMREG+58, bit 4 


EM 




NOXREF 


NOXREF 

Set XREF option OFF, COMREG+58, bit 4 


EM 




ERRS 


ERRS 

Set ERRS option ON, COMREG+58, bit 5 


EM 








NOERRS 


NOERRS 

Set ERRS option OFF, COMREG+58, bit 5 


EM 








48 C 


C48 

Set 48 character set 

option ON, COMREG+58, bit 6 


EM 




60C 


C60 

Set 60 character set 

option ON, COMREG+58, bit 6 


EM 




NOLOG 


OPTNLG 

Set the SYSLST-LOG option 

OFF, COMREG+59, bit 3 


EM 




USRLABEL 


USRLBL 

Initialize Job Control 

Label Processing for USER LABEL Processing. 


EN 




STDLABEL 


STDLBL 

Initialize Job Control Label Processing for 
STANDARD LABEL Processing. Labels Available 
to Programs in ANY Partition. 


EN 




PARSTD 


PARSTD 

Initialize Job Control Label Processing for 
PARTITION STANDARD LABEL Processing. Labels 
Available to Programs in Only ONE Partition. 


EN 




DUMP 


DUMP 

Set Job control dump option ON, COMREG+59, bit 


EP 
1 




NODUMP 


NODUMP 

Set job control dumpoption OFF, COMREG+59, bit 1 


EP 








LINK 


LINK 

Set LINKEDT control bits, COMREG+57, bits 0,2 

Valid for BG only 


EN 








NOLINK 


NOLINK 

Set LINK option OFF, COMREG+57, bit 


EP 




LOG 


OPTLOG EP 
Set the SYSLST-LOG option ON, COMREG+59, bit 3 




CATAL 


CATAL 

Set LINKEDT control bits, COMREG+57, bits 0,2,3 

Valid for BG only 


EN 




SYSPARM 


SYSPRM 

Save character string ' 


EP 
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Chart 09. Job Control ($JOBCTLG) Statement Processor (Part 2 of 2) 



CANCEL 



CANCEL STATEMENT PROCESSOR 



Chart EE 



ignored if a job was not in process when it 



This statement i 
is encountered: 

1 . Displays the message "JOB - job name -CANCELED 
DUE TO OPERATOR INTERVENTION" . 

2. Sets the cancel code in JBCSW1 . 

3. Sets the SYSRDR input switch on (also in the PIB). 

4. Resets all I/O assignments to standard . 

5. If a job is cancelled and it is out of sequence step 4 is 
bypassed . 



EOJ 



/& STATEMENT PROCESSOR 



Charts EC-EE 



1 . 



Fetches SMAINEOJ or MAINEJP. (If a PCIL is 

assigned, MAINEJP is fetched, otherwise, SMAINEOJ 

is fetched .) 

Clears user label cylinder 

Restores standard l/O assignment. 

Insures that SYSIPT is at EOF . 

Resets job control options to standard. 

Sets job status bit OFF (see item 1). 

Displays EOJ message and logs the time and job duration 

8. Resets the job name field in the communications region 
to NO NAME. 

9. Lists all nonzero TEBs. 

10. Resets all bits in COMREG+57 except the autotest 

indicator . 
1 1 . Control is transferred to the JOB statement processor at 

the label RSTCOM. 



JOB 



JOB STATEMENT PROCESSOR 



Charts EA,EB 



Resets all bits in COMREG+57 except the autotest 
indicator . 

Simulates a SYSRDR EOF if the /& statement has not 
been read . Fetches SJOBCTLN if job accounting active. 
Restores all LUB assignments to standard. -^- 



Moves the JOB name to the communications region. 

Save JOB start time in reg save area of this partition . 

Logs the JOB statement on SYSLST/SYSLOG . Logs the 

time on SYSLOG . 

Restores all options to standard. 

RSTCOM: Restores the communications region to 

standard . 

Resets the EOF indicators in all PUBs. 

Set switches to initialize, check, or bypass the Recordei 

File. 



A Chart 04 
Table C 



EXEC 



EXEC STATEMENT PROCESSOR 



Chart EF-EJ 



An EXEC statement indicates the end of preparation for the 
execution of a job step. All control statements, necessary 
for execution, must be processed before this time. A test is 
made to determine if all label processing has been accom^ 
plished. If there is label or extent information in the label 
output area, it is written on the label cylinder of SYSRES. 

If the EXEC statement has a blank operand field, initial- 
ization is performed to executate the linkage editor output. 
When a phase name is specified, it is saved in a work area 
and a phase directory is built for this job step. When the 
phase directory is completed, storage is cleared from the 
problem program beginning address and a fetch is issued for 
the desired program. The EXEC statement processor puts 
the phase name in the job accounting interface table if 
job accounting is active. 



C Branch to entry ^ 
point in program J 



CONTROL 
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Chart 10. Job Control ($JOBCTLJ) Statement Processor (Part 1 of 3) 



v 



*Chart 04 
Table D 



NOLOG 



NOLOG STATEMENT PROCESSOR 



Chart GL 



If the statement is from the operator, no // in column 1 , the 
log - on -SYSLOG- switch (COMREG+56, bit 3) is set OFF. 
I f from the programmer , // in col umn 1 , the log - on - 
SYSLST -switch (COMREG+59, bit 3) is set OFF . 



STOP 



STOP STATEMENT PROCESSOR 



Chart GM 



This statement is an error if the system is not in a 
multiprogramming environment. 

A WAIT macro pointing to a dummy CCB is simulated to 
force entry into the supervisor task selection routine . This 
removes this partition from the task selection mechanism. 



ALLOC 



ALLOC STATEMENT PROCESSOR 



Charts GP-GR 



This phase reallocates main storage according to the number 
of 2K blocks specified for one, or both of the foreground 
areas by the operand of the ALLOC statement. To reallo- 
cate, this phase: 
1 . Builds a table containing the current number of 2K 

blocks, the lower limit address, the address of the save 
area, and the upper limit address. A separate table is 
built for the background area and each foreground area. 
The source information for the table entries is the 
program PIB. 

2. Updates the table built in step 1 with the information 
secured from the operand of the ALLOC statement. The 
operand value is easily converted to byte count which is 
used to calculate upper limit information. Upper and 
lower limits necessary to ensure contiguousness and the 
designated amount of main storage are calculated for 
each table entry and checked to overlap for active areas 

3. Resets the PIB entries with origin information and storage 
keys of all program areas, using the table entries as 
source information . 



CONTROL 



LOG 



LOG STATEMENT PROCESSOR 



Chart GL 



If the statement is from the operator, no // in 
column 1, the log -on - SYSLOG -switch (COMREG + 
56, bit 3) is set ON. 

If from the programmer, // in column 1 the log -on - 
SYSLST -switch (COMREG+59, bit 3) is set ON . 



PAUSE 



PAUSE STATEMENT PROCESSOR 



Chart GL 



If the statement is from the operator, no // in column 1 , 
the job -control -pause -switch (COMREG+56, bit 5) is 
set ON to cause a pause before the next job -step. If the 
statement is from the programmer, // in column 1, the job 
control input -on -SYSLOG -switch (COMREG+56, bit 2) 
is set ON . This forces a pause on the next job control read 
operation . 



V 



CONTROL 
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Chart 11. Job Control ($JOBCTLJ) Statement Processor (Part 2 of 3) 



v 



ucs 



UCS STATEMENT PROCESSOR 



Charts GB-GC 



The 240-character Universal Character Set (UCS) 
specified by the operand PHASENAME is loaded in 
the buffer of the IBM 2821 Control Unit of the 
logical unit specified by the operand SYSXXX. 
The phase is loaded from the Core Image Library. 
1 . The operand SYSXXX specifies a 1403 with the 
UCS feature . 

2. The operand PHASENAME specifies the core 
image library phase to be loaded. 

3. The operand FOLD (optional) specifies that the 
buffer is to be loaded with the folding operation 

.code (hex F3) in the 3rd CCW. 

4. The operand BLOCK (optional) specifies that 
data checks are to be inhibited. The inhibit 
data check operation code, X'73' is set in the 
2nd CCW. 

5. The operand NULMSG (optional) specifies that 
the 80-character verification message is not to be 
printed. The chain bit is set off in the 3rd CCW. 



ACTION 



ENTRY STATEMENT PROCESSOR Chart GD 



This statement is invalid if the link option 
(JBCSW1 , bit 0) is not ON . If valid the 
ENTRY statement is copied to SYSLNK . 



ACTION 



ACTION STATEMENT PROCESSOR Chart GD 



This statement is invalid if the link option 
(JBCSW1, bit 0) is not ON. If valid the 
ACTION statement is copied to SYSLNK . 



Chart 04 
Table D 



HOLD 



HOLD STATEMENT PROCESSOR 



Chart GA 



1. All I/O assignments for the foreground area (s) 
specified are to stay in effect from job step to 
job step. 

2. The operands of the HOLD statement, Fl and/or 
F2, can appear in any sequence. 

3. The hold flag, bit 4 of PIB+12, is set ON(l). 



RELEASE 



RELSE STATEMENT PROCESSOR 



Chart GA 



1. All I/O assignments for the foreground area (s) 
specified are unassigned at the end of the job step 
currently being executed in that area. 

2. The operands of the RELSE statement, Fl and/or 
F2, can appear in any sequence. 

3. The hold flag, bit 4 of PIB+12, is set OFF(0). 



ACTION 



PHASE STATEMENT PROCESSOR Chart GD 



This statement is invalid if the link option 
(JBCSW1, bit 0) is not ON. If valid the 
PHASE statement is copied to SYSLNK . 



CONTROL 
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Chart 12. Job Control ($JOBCTLJ) Statement Processor (Part 3 of 3) 



UPSI 



UPSI STATEMENT PROCESSOR Chart GK 



The parameter of this statement is 
converted to a single byte and stored in 
COMREG+23. 

• A character 1 sets a bit ON . 

• A character sets a bit OFF . 

• A character X leaves the bit unchanged. 



SET 



SET STATEMENT PROCESSOR Chart GG -GJ 



Provides the operator with the capability 
of changing the UPSI byte, the system date, 
the line count, the system time, and the 
remaining capacity of SYSLST or SYSPCH 
when they are assigned to disk. Permits the 
operator to define to the system the status 
of the recorder file on SYSREC, which is 
used by OBR/SDR/MCRR functions to store 
information concerning I/O errors. 
Processing is as follows when the operand is: 
DATE = the MM/DD/YY or DD/MMAY 
parameter is con verted, to binary 
and stored into COMREG+79 thru 
84. The Julian day is computed, 
adjusted for leap year, converted, 
to EBCDIC, and stored in 
COMREG+85 thru 87. 
If BJF environment, day is 
stored in all three COMREGS. 
LINECT = The parameter is converted to 

binary and stored in COMREG + 
78. The job control line count 
for the remaining lines on the 
current page is adjusted. 
CLOCK = the parameter HH/MM/SS is 
converted to binary seconds, 
multiplied by 300. The system 
timer is divided by 256 and 
added to result. The new 
value is stored as the new system 
time of day in decimal location 
54, SYSTOD. 
(((((HHX60)+MM)X60)+SS)X300+TIMER/ 
256)=NEW SYSTOD 
If BJF environment, time is stored in 
reg save area for all three paritions. 
RF = After the specified parameter is checked 
for validity, the proper option bit is 
set in the SDR status flag byte (byte 1 ) 
of the SDR communication region. 
CREATE -X'08' 
YES -X , 04' 
NO-X'10' 
UPSI = See UPSI Chart 
RCLST = The parameter of this operand is 
converted to binary and stored in 
the SYSLST DIB. 
RCPCH = The parameter of this operand is 
converted to binary and stored in 
the SYSPCH DIB. 



Chart 04 
Table D 



CATALR 



CATALR CARD PROCESSOR 



Chart GN 



This card is invalid if the LINK option 
(JBCSW1 , bit 0) is on_. If valid, CATALR/ 
SYSPCH mode switch (JBCSW5, bit 0) is set 
for handling the PHASE card . CATALR card 
is validated for syntax. 

V.M is checked for valid characters. Valid 
card is punched on SYSPCH. If card is in- 
valid, job is cancelled . 



T 



DATE 



DATE STATEMENT PROCESSOR Chart GH 



Moves the date from the operand of the state- 
ment to the communication region (byte 0). 



INCLUDE 



INCLUDE STATEMENT 
PROCESSOR 



Chart GD 



This statement is invalid if the link option 
(JBCSW1 , bit 0) is not ON . If the statement 
contains an operand, the complete statement 
is copied to SYSLNK . If the statement does 
not contain an operand, SYSIPT is copied to 
SYSLNK until a/* statement is read on SYSIPT. 
INCLUDE and/* are not copied to SYSLNK . 



MTC 



MTC STATEMENT PROCESSOR Chart GE, GF 



Permits the operator to initiate tape I/O com- 
mands on specified logical units or physical 
I/O devices . 

The routine checks the op code, computers or 
locates the PUB pointer, and assigns it to the 
SYSUSE LUB, and executes the I/O operation. 
The third operand (duplication factor) 
determines the number of operations to be 
performed. If the third operand is left blank, 
a dupl ication factor of 1 is assumed . 



>i< 
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Chart 13. Job Control ($JOBCTLK) Statement Processor (Part 1 of 2) 



^ 



Chart 04 
Table E 



TPLAB 



TPLAB STATEMENT PROCESSOR 



Chart HA 



The sequence of the TPLAB statement is 
checked. It must follow a VOL statement. 
If there is a continuation punch in column 
72, a second statement is read into the 
input area contiguously with the first 
statement. There are 49 characters read 
from the first statement and an additional 
20 characters from the second statement. 
If a continuation statement is not 
indicated, a default value of 0000000 
DOS/TOS/360 is inserted at the end of 
the 49 character record in the input area. 
The label is moved from the input area to 
the label output area. A switch is set to 
indicate that only a VOL statement may 
follow. 



DLAB 



DLAB STATEMENT PROCESSOR 



Chart HF 



The sequence of the DLAB statement is 
checked. It must follow a VOL statement, 
A continuation statement is required. It 
is read into the input area contiguously 
with the first statement. The disk format 
1 label is built in the label output area, 
one parameter at a time. 
Param 1 (51 -bytes) make up fields 1, 2, 

and 3. 
Param 2 (4-bytes, max.) is the vol. seq. 

no. It is converted to 2 -bytes 

binary and stored in field 4. 
Param 3 (5-bytes) is converted to 3-bytes 

binary and stored in field 5. 
Param 4 (5-bytes) is converted to 3-bytes 

binary and stored in field 6. 

The creation and expiration dates 

are tested for validity (fields 5 

and 6 respectively). 
Param 5 (1 3-bytes) is stored in field 8. 
Param 6 (optional) is tested 

if blank or SD, set field 10 to an S. 

if DA, set field 10 to a D. 

if ISC, set field 10 to a C. 

if ISE, set field 10 to an E . 
A switch is set on to indicate that a DLAB 
statement has been processed and only an 
XTENT statement can follow. 



LBLTYP 



LBLTYP STATEMENT PROCESSOR Chart HA 



1. If the first operand is TAPE, the size 
of the label area is set to 80 bytes. 

2. If the first operand is NSD, the second 
operand (nn) is used to calculate the 
number of bytes required to contain 
the specified number of extents. 

This computed value plus 84 bytes 
determines the size of the label 
area. 

3. The size of the label area is 
determined in step 1 or step 2 and is 
stored for subsequent use by LIOCS 
and the Linkage Editor. 



XTENT 



XTENT STATEMENT PROCESSOR Charts HG-HH 



The sequence of the XTENT statement is 
checked. It must follow a DLAB statement 
or another XTENT statement . The 
parameters are processed one at a time 
(parameter 1-7). An XTENT statement is 
required for each extent to be defined 
for a given set of VOL and DLAB statements . 
The extents are built in a label output 
area and are written in the SYSRES 
VOLUME area. 



VOL 



VOL STATEMENT PROCESSOR 



Chart HA 



The sequence of the VOL statement is checked. 
The 1st parameter SYSXXX is tested, con- 
verted, and the symbolic unit address is saved 
in the label save area. The 2nd parameter, 
FILE NAME, is tested and moved to the label 
output area. A switch is set to indicate that 
the VOL statement has been processed and 
that DLAB or TPLAB statements are to follow. 



<3j 

CONTROL 
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Chart 14. Job Control ($JOBCTLK) Statement Processor (Part 2 of 2) 



^ 



TLBL 



TLBL STATEMENT PROCESSOR 



Chart HB 



The sequence of the TLBL statement is checked 
and default values are inserted for all 
operands from the file ID through the 
expiration date. The file name operand is 
tested and moved to the label output area. 
The file ID and date operands are checked, 
converted, and moved to the output area; The 
date operand may be omitted or may be a 
retention period or an absolute date "yy/ddd". 
All the remaining operands (file serial, 
volume sequence, file sequence, generation, 
and version numbers) are then checked and 
moved to the output area, in turn, overlaying 
the default values (the default values will 
remain for any missing operands). Default 
values are then inserted for file security, 
block count, and system code. A switch is 
set to indicate that no other required 
statements are to come and that neither 
TPLAB nor DLAB will be accepted. 



Chart 04 
Table E 



DLBL 



DLBL STATEMENT PROCESSOR 



Chart HE 



The sequence of DLBL statement is checked 

and default values are inserted for all 

operands from FILE ID through DATA SECURITY. 

A default table is built to be used when 

processing the EXTENT statement(s). The 

FILENAME operand is tested and moved to 

output area. The file ID and DATE operand are checked, 

converted, and moved to the 

output area. The DATE operand may be omitted, or may 

be a retention period or an absolute date "yy/ddd". 

If the file ID was omitted, the file name is inserted as 

default value. The proper FILE TYPE code 

is inserted for SD, DA, or IS. If DSF is specified, the 

data security indicator is set ON . A switch is set to 

indicate that only EXTENT statement(s) may follow. 



EXTENT 



RSTRT 



EXTENT STATEMENT PROCESSOR 



Chart HJ-HL 



The sequence of the EXTENT statement is 
checked and default values are set from 
the default table built by DLBL statement 
processor for vol. serial, Extent type, 
seq. no., upper and lower extent limits, 
logical unit, and bin no. The operands 
are then processed and overlay the default 
values. If the operands are omitted, the 
default values remain. When extent 
processing is complete, the extents are 
written in the volume area on SYSRES. 



RSTRT STATEMENT PROCESSOR 



Chart HQ 



Computes the LUB and PUB pointer for 

SYSXXX and saves the checkpoint number. 

Insures that all label processing has been accomplished 

and closes the user label area. 
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Chart 15. Job Control ($JOBCTLM) Statement Processor 



"Chart 04 
Table F 



JOBCTLM 



ROD 



RECORDER FILE INITIALIZATION 



Chart JA 



If RMS is in the system, a load list is built . A Recorder 
File is initialized according to the option specified in the 
SET RF statement. 

• If RF =YES, an active Recorder File exists and is to be 
opened as an input file. 

• If RF=CREATE, the system creates a new Recorder File 
by opening the file as output. 



CREATE 



ROD STATEMENT PROCESSOR 



Chart JH 



Causes all SDR counters for all devices on the recorder 
file on SYSREC to be updated from the SDR counters in 
main storage. Locates the SDR queue and the SDR table 
from addresses in the SDR communication region. Schedules 
SDR2 (routine to update the incore SDR counters) and SDR3 
(A -transient that updates the SDR recorder file), attaches 
the quiesce PIB, and waits for task selection. Repeats this 
process until all entries in the queue are handled, and 
generates the completion message. When a DOS system is 
generated for and run on a System/370 computer, the mes- 
sage indicating the percentage of the recorder file full is 
also issued. Checks the CPU ID record and issues the 
appropriate IPL, End of Day, or RDE messages. 



CREATE RECORDER FILE 



Chart JA-JC 



Creates a Recorder File by formatting the required extents 
for SDR (Statistical Data Recorder) and/or OBR (Outboard 
Recorder) records. Sets up an SDR record for each PUB 
entry, using cuu as the key and device characteristics 
as data. Formats the remaining records with a key of 
X'FFFF' (except the last whose key is X'FFFE') and the 
current disk address as data. Formats OBR records with 
zeros and a security byte. Data recorded by OBR and 
SDR is processed and displayed by the Environmental 
Recording, Editing, and Printing (EREP) program . See 
Supervisor and Related Transients PLM. 



YESOPT 



CHECK RECORDER FILE 



Chart JD - JG 



Uses the PUB table to access the SDR portion of the recorder 
file . If a PUB entry is not found in the file, seeks an 
available record and updates the SDR file for this device. 
Searches for an available record in the OBR portion of the 
file, and updates the file accordingly. When a DOS System 
is generated for and run on a System/370 computer, the 
percentage of the recorder file used is computed and the 
message, "RECORDER FILE IS XXX% FULL", is printed. 
If the recorder file is greater than 90% full, "RUN EREP" 
is added to the end of that message . 



CONTROL 
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Chart 16. Job Control ($JOBCTLN) Statement Processor 



* Chart 04 
Table G 



SJOBCTLN 



JOB ACCOUNTING INTERFACE 



Chart KA, KB 



1 . Store registers and set exits. 

2. If last user exit not normal, exit to 

3. Other $JOBACCTs- in progress? 
YES - Wait for their completion. 
NO - Post SJOBACCT active. . 

4. Calculate and store final CPU time. 

5. Save base registers and initialize user pointers. 



LOAD SJOBACCT 



RETURN 



Turn off Job Accounting Interface support 
switch in COMREG . Post cancel Job 
Accounting Interface to other partitions. 



JOB ACCOUNTING INTERFACE 



Chart KB 



1 . Restore base registers, turn off user in charge switch. 

2. Dequeue any waiting partitions . 

3 . Re - initialize accounting table for next job step . 

4. Turn off SJOBCTLN active switch and label switch. -^ 

5. Restore job control registers. 
Return: 
• If entry was from EXEC, return to phase vector 

table in $JOBCTLA. ; 



6. 



If entry was from EOJ, return to CONTROL in 

SJOBCTLA . 

If entry was from simulated EOJ (Job Statement 

Processor), return to SJOBCTLG. 

Otherwise: — — — 



V SVC 14 J 



JOB 



CONTROL 



TABLEC 
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Chart AA. $$A$IPL1 - IPL Bootstrap 
Refer to Chart 01. 



OPERATOR SET 

UNIT PRESS 

LOAD KEY 



BY PRESSING THE LOAD KEY, THE OPERATOR CAUSES 
MICROPROGRAMMING TO READ THE $$A$IPL1 RECORD 
FROM SYSRES ICYLINDER 0, TRACK 0, RECORD 1) 
INTO MAIN STORAGE LOCATIONS 0-17 (HEXADECIMAL). 
THIS RECORD CONSISTS OF 



.HEX LOC 


.0 


8 


10 


18. 


.CONTENT 


. PSW 


CCW1 


CCW2 





•••♦C3»*»»*»»* 

READ 40 

BYTES 

(CYLINDER 00, 

TRACK 00, 

RECORD 2) 



.HEX LOC. 18 



READ DISK INTO STORAGE LOCATION HEX 
18. (40-BYTES OF DATA, CHAINED CCW, 
AND SUPPRESSED WLR. 1 



CCW2 

SEEK THE DISK ADDRESS SPECIFIED BY THE 
FIRST 6-BYTES OF DATA IN THE SEEK 
ADDRESS LOCATED AT STORAGE LOCATION 
HEX 30. (CHAINED CCW AND SUPPRESSED 
WLR.) 



SEARCH FOR THE DISK RECORD SPECIFIED 
BY THE 5-BYT6S OF DATA IN STORAGE 
LOCATION HEX 32 (SEEK ADDRESS PLUS 
2-BYTES). THE CCW IS CHAINED AND WLR 
IS SUPPRESSED. 



.CONTENT. CCW3. CCW4. CCW5. 



.37 - 3F. 

I 'unused* 



SEARCH USING 
CCW3 FOR 
RECORD 5 



THE CCWS (1-5) ARE CHAINED TOGETHER. 

THE SEEK ADDRESS (HEX LOC 30) CONTAINS THE 
SYSRES DISK ADDRESS OF THE $$A$IPL2 PRO- 
GRAM. THE FORMAT OF THE SEEK ADDRESS 
FIELD IS 

*HEX* LOC '.lb'. 31 * 32* 33 ' 34* 35 * 36 * 

*DEC *MAL "* 6**6**6"* 6! *6*'i**5* 
.CONTENT. . . 

'meaning* *b**b**c**c**h**h"*r" 



WHERE 



BB IS BIN NO. 
CC IS CYLINDER NO. 
HH IS TRACK NO. 
R IS RECORD NO. 



AT THE COMPLETION OF THIS BOOTSTRAP OPERATION, 
$$A$IPL2 HAS" BEEN LOADED INTO MAIN STORAGE AND 
MICROPROGRAMMING TRANSFERS CONTROL TO IT BY 
LOADING THE PSW FROM MAIN STORAGE LOCATION 
(HEXADECIMAL). 



TRANSFER IN CHANNEL (TIC) TO CCW3 UNTIL 
THE SEARCH ADDRESS SPECIFIED BY CCW3 
IS FOUND. (CHAINED CCW AND SUPPRESSED 
WLR.) 



READ 4096 

BYTES 
$$A$IPL2 



READ DISK INTO STORAGE LOCATION HEX 
3000. (4096-BYTES OF DATA. SUPPRESSED 
WLR.) THIS CCW IS NOT CHAINED. 



THE PSW AT LOCATION CONTAINS 
THE ADRESS OF THE FIRST EXECUTABLE 
INSTRUCTION OF THE $$A$IPL2 PROGRAM. 
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Chart AB. $$A$IPL2 - Clear Storage and Load Supervisor (Part 1 of 2) 
Refer to Chart 01 • 



IJBIP210 

•*ft««Bl«***»*** 

» LOAD ADDRESS 

• OF BEGIPL 

• IN EXTERNAL 
» INTERRUPT 

• PSW 



.* HAS *. 

.SYSTEM DAMAGE. 
♦.OCCURRED .* 



• IS * 

MC OLD 
*.PSW GOOD .* 



SET HARD 

MACHINE 

CHECK 



* • « 

* E5* 

REAOER "X 

R0DIR2 X 

* STORE ADDRESS 

* OF SEEK CCW 
» IN CAW 

* (LOCATION 72) 



A5 *. 

« ANY « 

MORE 

ENTRIES 

CN THIS 

•.TRACK.* 

"•NO 



BEGIPL 


X 


>»C1»*»»»»» 








SET 


* 


TIMER 






* 






X 








Dl ♦. 






• * 


S/370 


*. 


CPU 



••B3******* 


*• 


»»B4»»«*«»««««« 


B5 •. 




• SET SEREP • 




READ 






* CODE AND • 




BLOCK • 


.• SEARCHING •. NO 




WAIT IN • 




OF 


♦. TRANSIENT 




* MC NEW * 


• 


TEXT * 


♦.DIRECTORY.* 




• PSW » 
















♦ . .« ( 








•YES *••• 








••*♦ . ♦AC 








• * . ♦ Al 








•AC •... • • 








• El» • 






X 


•••• . RTRAK 








LOKCID X 


X 




C4 ». 


•••••C5*««*««***« 


••••C3 *••••••*• 




* *. 


• MOVE ADDRESS • 


ENTER • 


.« 


READ ♦. YES 


• OF CORE IMAGE ♦ 


HARD • 




ERROR 


• DIRECTORY • 


WAIT • 


* 




• INTO READ • 

• CCW * 






• . .» X 







RMSPCRET 

♦»D2»****** 
• SET FOR 

• HARD WAIT 
...X» ON MACHINE 

• CHECK 



CLEARCOR 

«»»ft«El***«»ft*«« 

• INITIALIZE 

• FOR PROGRAM 

• CHECK, LOAD 
•RETURN ADDRESS 
» IN PC PSW 



CLEAR 
MAIN 
STORAGE 



E3*»»*»*»« 

• CALCULATE 

• CORE SIZE 

• AND ADDRESS 

• OF TRANSIENT 

• DIRECTORY 


♦ X. 


• * • 
•AC •... 

• CI* 
ft*** X 
KUP .•. 

F3 *. 

.** LAST ** 
*. DIRECTORY 
*. ENTRY .* 


. NO 



SUPERVISOR ♦. YES 




FOUND 












*. .• X 




•NO *•**« 




• AC • 




• B2» 












X SW1 








E4 •• 


• E5 


.* *• 


AC-F1,F2,H2 



»»««»F4***»*»**« 

♦ MOVE ADDRESS 

♦ OF TRANSIENT 
♦DIRECTORY INTO 
♦READ CCW, SAVE 

♦ CID ADDRESS 



ERRHLT X 

♦ MOVE ERROR 

* CODE •0100A 1 

• TO LOCATION 



• G3« 



«*• 



0-4 



•MOVE ERROR CODE* 
•HEX •07E60000' • 
•TO LOCATION 0-3» 
• AND STORE CCW • 
•ADDRESS IN CAW * 



A2 • 



END 

OF 

CORE 



FORCE 

PROGRAM 

CHECK 



INCREASE 
TO NEXT 
BYTE 



CONTIN 

«**»»J2***«*«*« 

• DUMMY 

• TRUE 

• END OF 

» CORE ADDRESS 



MASK OFF 

ALL 

INTERRUPTS 



* LOAD PSW » 

* WAIT FOR * 
•OPERATOR ACTION* 



• •••H4»«*"*»«* 

MODIFY 

CONSTANTS AND 

INSTRUCTIONS 

FOR 2314 

FORMATS »J4 



GET DEVICE 

ADDRESS OF 

SYSRES 



»J4 
RECORD LENGTH, MAX. 
HEAD NUMBER. RECORDS/TRACK 
IN SYSTEM OIRECTORY 
RECORDS/TRACK IN CORE 
IMAGE LIBRARY AND SYSRES 
TYPE. 
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Chart AC. $$A$IPL2 - Load Supervisor (Part 2 of 
Refer to Chart 01. 



2) 



AL ♦. 
.♦ IS ♦ . 

• THIS ♦. 

THE SUPER- . 

♦ . VISOR .* 

•.ENTRY.* 

*"»N0 



•**B1» 

INCREASE 

0IRECT0RY 

ADDRESS BY 

20 FOR NEXT 

ENTRY 



END OF 
DIRECTORY 
. BLOCK . 



FOUND 

•«A2»««***» 

• TURN ON * 
» SWITCH «SW 

...X* TO INDICATOR 
* SUPERVISOR 

• FOUND ♦ 



SETBLK X 

♦•**»A4** ******* 

• EXPAND DISK 
» ADDRESS FROM 

• TRANSIENT 

• DIRECTORY 

» TO FIVE BYTES 



GET ADDRESS 

OF ADCON 

TABLE 



LAST 
RECORD OF 
. SUPER- . 
*. VISOR.* 



C2 



WAS ». 

* FIRST *. NO 
RECORD OF .»... 

•SUPERVISOR.* 
♦.READ .* 

*"*YES 



»»»«B4******** 

SAVE 

END-OF-CORE 

ADDRESS AND 

REDUCE BLOCK 

COUNT BY 1 



CALCULATE 

SIZE OF 

SUPERVISOR 



HOVE ADCONS 

TO HIGHER 

CORE LOCATION 



•••*C5*** 

GET SYSRES 

ADDRESS AND 

RESTORE 

CONSTANT FOR 

16K MACHINE 



LOOKUP 


X 




LBLOC 


Dl**"*. 
.* IS *. 






THIS 






THE LAST 




* 


•DIRECTORY. 

♦.BLOCK.* 


* 



CHGADR 

»»#*#D2» 
•DSKADR 



El ». 

.* WAS *. 

TRANSIENT 
DIRECTORY 
.SEARCHED . 



• UPDATE 


« 


• DISK 




* ADDRESS 


• 


• «»• . 




* * . 




* E2 «... 




* * . 




«••» 





*»*D4******** 
ADD MINIMUM 

BG LENGTH 
TO SIZE OF 
SUPERVISOR 



•**05»******* 

GET 

END-OF-CORE 

ADDRESS AND 

DEVICE 

ADORESS 



RDBLOK 

**»*»E2********«* 

* ADJUST CCW TO « 

* READ A BLOCK * 
♦FROM SUPERVISOR* 

♦ AND DECREASE ♦ 

♦ BLOCK COUNT ♦ 



E4 *. 
.•ENOUGH ». 
NO .» ROOM FOR 
...*. SUPERVISOR 
•.AND MIN. . 
*. BG .» 
X *. .» 
*** »YES 



♦«»E5*««*««« 

GET BLOCK 

COUNT AND 

LENGTH OF 

LAST BLOCK 



UPDATE 

DISK 
ADDRESS 



♦ ••*F5«"***»* 

INSERT 

NORMAL BLOCK 

LENGTH IN 

READ CCW 



MODIFY CCW 

TO READ 
LAST BLOCK 



**H2»*****» 
♦MODIFY SW1 ♦ 

* TO BRANCH ♦ 
AFTER READING 

♦ LAST BLOCK ♦ 



FORCE DWD 

BOUNDARY 

ALIGNMENT 



CILRNO 

*«G5******* 
♦CHANGE REC. 

♦ NUMBER IN 
♦ RECNO TO 02, 

• MODIFY SW2 
* TO BRANCH 



♦MOVE BOOTSTRAP 

♦ TO NEW CORE 

♦ LOCATION *J2 



♦ J2 
BOOTSTRAP IS MOVED TO THE 
CORE LOCATION EQUAL THE 
LENGTH OF THE SUPERVISOR 
PLUS 10K (MINIMUM BG SIZE) 
MINUS 4K (MAXIMUM 
LENGTH OF BOOTSTRAP). 



REINITIALIZE 
THE BASE 
REGISTER 



♦ A5 
**♦♦ 
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Chart AD. $$A$IPL2 - Build Two-Device System 
Refer to Chart 01. 



#»«.»A1********* 
•GET ADDRESS OF 
♦COMMUNICATIONS 

* REGION, STORE 

* END-0F-C0RE 

* ADDRESS *A3 



EXTRTN X 

*»*#«A2*****»««« 
•LOCATE LUB FOR 
» SYSRDR IN 
» SYSGEN I/O 
» TABLES IN 
» HIGH CORE 



• A3 
THE END-OF-CORE 
ADDRESS IS STORED 
IN THE COMMUNICATIONS 
REGION DISPLACEMENT 
32 AND 48. 



RESTORE 

I/O NEW PSW 

AND EXTERNAL 

INTERRUPT 

NEW PSW 



•SET LUB NUMBER 
» 6 FOR SYSRES, 
« STORE ADDRESS 
• OF SYSRES 
», FOR LUBRTN 



MOVE ERROR 

CODE '0I01A' 

TO LOCATION 



PLACE SYSRES 

ADDRESS IN 
PIB FOR FETCH 



•MOVE I/O TABLES* 
• AND BUILD PUB • 
•FOR SYSRES *C3 • 



»»*»D1»*»»»«»» 

REPLACE I/O 

NEW PSW WITH 

IPL PSW TO 

POINT TO 

ENTER 



«*»«»E1*»»»»***»« 
•REPLACE EXTERN • 
•INTERR NEW PSW • 
•WITH TPL EXTERN* 
• INTERR PSW TO • 
•POINT TO EXTRTN* 



*«»F1»****** 

ENABLE ALL 

INTERRUPTS 

C'FF' IN 

ERRPSW) 



»»»**D2*»»«»**»* 

• LOCATE SYSGEN 

• DEVICE IN PUB 
•TABLE, PUT C/U 

• INTO I/O 

• OLD PSW 



SET LUB 

NUMBER 

FOR SYSRDR 



• SET BIT 2 • 

•IN COMREG+56 

FOR COMMUN. 

• DEV. SYSRDR 



»C3 
THE I/O TABLES ARE 
MOVED TO END OF SUPER- 
VISOR AND A 1-DEVICE 
SYSTEM IS BUILT IN 
THE LOW CORE I/O 
TABLE AREA. SYSRES 
IS THE ONLY DEVICE 
IN THE SYSTEM AT THIS 
TIME. IT WILL BE 
EXPANDED TO A TWO- 
DEVICE SYSTEM WHEN 
THE COMMUNICATION 
DEVICE IS ADDED 



USE 

PPBEG AS 

SUPERVISOR 

END 



»»»#C4******»»« 

LOAD PSW, 

ENTER PROGRAM 

STATE 



IS 
PPBEG GT 
. EOSSP 



•E4»»**« 

USE 

EOSSP 



• E5 
THE SYSTEM IS PUT IN THE 
WAIT STATE UNTIL THE 
OPERATOR INDICATES WHICH 
DEVICE IS DESIRED FOR THE 
COMMUNICATIONS DEVICE 
SYSLOG, SYSRDR, OR AN 
UNASSIGNED READER. IF 
SYSRDR AND ASSIGNED, 
GO TO 'EXTRTN' IF SYSLOG 
OR AN UNASSIGNED READER, 
GO TO 'ENTER' . 



ALLOW ROOM 

FOR 4K 

WORK AREA 



»«#*G1»»******* 
•LOAD PSW, WAIT 
♦ FOR OPERATOR 
» ACTION »E5 



LUBSET 

»*»»#G2»**»»*»«* 

• GET C/U OF 
•COMMUNICATIONS 

• DEVICE FROM 

• I/O OLD PSW 



EXTERNAL »»»#»H2* 
. INTERRUPT »LUBRTN 
•SYSRDR ASGN«-» 



Jl ». 

.•CONSOLE*. 
.♦PRNTR KEYBD» 
.-,,*. OR CARD 
NEITHER*. READER .* 



•ASSIGN PUB FOR 
•COMMUNICATIONS 
* DEVICE *G5 



.* STORAGE *. YES 
*. PROTECT .*.... 
*. OPTION .* 



SETPROT 

»»**#H3********* 

* GET LENGTH OF 

* BLOCKS AND 
GET LIMITS TO 
BE PROTECTED 



..X* 



SETKEY 

««*«*J3«««**»**« 

* SET S.P. KEYS 
•FOR EACH BLOCK 

* OF STORAGE TO 

* BE PROTECTED 



GET I/O 

TABLE 
ADDRESS 



»»»**H4********»« 

* BRANCH TO I/O » 
•TABLES IN HIGH * 

* CORE TO GET * 

* INSTRUCTION » 
•TO LOAD $IPLRT2* 



SVC 4 * 

LOAD SIPLRT2 * 

CHART AJ * 



*G5 
A SECOND DEVICE IS ADDED 
TO THE I/O TABLES IN LOW 
CORE TO MAKE IT A TWO- 
DEVICE SYSTEM FOR IPL 
OPERATIONS. 

THE SECOND DEVICE IS THE 
COMMUNICATIONS DEVICE, 
AS DESCRIBED IN NOTE E5. 



•NO 

!x... 
x 

* A4 * 



SET LUB 

NUMBER-4 

FOR SYSLOG 
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Chart AE. $$A$IPL2 - Move I/O Tables 
Refer to Chart 01. 





*A2 




FIRST TIME 




THROUGH IT WILL 




BE SYSRES C/U, 




NEXT TIME IT 


»»*»A1«***»*»+* 


WILL BE THE 




COMM DEVICE. 


LUBRTN » 





» INITIALIZE 
•REGISTERS, PUT 

* CHAN AND UNIT 

* IN TEMPORARY 

* PUB »A2 



ARE 
THERE 
TEBS 



TURN OFF 

FIRST ENTRY 

FLAG 



***#E1»» *•»»**• 

GET GREATER 

THAN 16K 

ORGIN 



CALCULATE 
SIZE OF TEBS, 

GET ADDRESS 
TO MOVE TEBS 



MOVE THE 

LUBS TO 

HIGH CORE 



•»**B3» ♦ « 

UNASSIGN 
EXISTING LUBS 

IN LOW CORE 

SET TO IGNORE 

SYSLOG 



.» IS IT ». NO 

*.TO ESTABLISH 

*. SYSRES .» 



«»»D3»*»«»«»« 

INSERT 

SYSRES TYPE 

IN PUB AND 

TURN ON 
SHARED FLAG 



SAVE LUB 

TYPE FOR 

SIPLRT2 



.* IS IT *. NO 
.TO ESTABLISH .»... 
*. SYSLOG .» 



INSERT 

CONSOLE 

PRINTER 

KEYBOARD 

TYPE IN PUB 



INSERT 

READER TYPE 

IN PUB 



SET THE 

JIB 
POINTER 



REPLACE 

LUB TYPE 

WITH SYSUSE 



PUBMKE 

• INITIALIZE 
•FOR SUBROUTINE 

• FOR BUILDING 

• THE PUB 



.« CORE * 
.SIZE GREATER 
•.THAN 16K .* 



•SUPERVISOR 

TOO LARGE 

«. FOR 16K . 



GET LUB 
ORGIN AND 
LUB TYPES 



GET 

NICL 
ENTRY 



BUILD PUB 
FOR IPL 
SYSTEM 



ORGEST 

***«»H1»«»*»»»« 

* CALCULATE 

* SIZE OF PUBS, 

* GET ADDRESS 

* TO MOVE PUBS 



MOVE THE 

PUBS TO 

HIGH CORE 



*»*«*K1«»*«*»*»» 

* SET THE FOCL 

* AND FIRST 3 
•PUBS TO A NULL 

* VALUE. GET 

* ADDR OF TEBS 




ASSIGN 
THE 
LUB 



CALC TOTAL 

LUB LENGTH 

AND GET 

ADDR TO 

MOVE LUBS 
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Chart AF. $$A$IPL2 - Build PUB Table 
Refer to Chart 01. 



»A1»«**» 
BLDPUB 



LOAD CHANNEL 

NUMBER AND 
FOCL POINTER 
IN REGISTERS 



GET ORIGIN 

OF PUB 

TABLE 



GET DESIRED 

POSITION FOR 

NEW PUB 



.♦. 


CHCLOP X 


.♦. 


CI *. 


»*«»»C2»»*»«***»« 


C3 ♦ . 


.* ANY #. 






DEVICE ♦ . NO 


• SEARCH PUB * 


.* DESIRED * 


ASSIGNED TO .♦ 


•TABLE FOR FIRST* 


♦.POSITION PAST 


. CHANNEL .« 


• AVAILABLE ♦ 


♦.CHAN END .♦ 




« ENTRY ♦ 





»A4*»»»« 
CLDRTN 



CLDRTN 

♦ CALC ADDR OF ♦ 
♦PUB TABLE ENTRY^ 

♦ FOR SYSRES ♦ 

♦ ♦AS ♦ 



STORE PUB 
ADDRESS FOR 

SYSRES IN 

PIB DISPLT 

X'68» 



SYSRES LUB POINTER 
TIMES 8 PLUS THE PUB 
TABLE ADDRESS. 



GET FIRST 

POSITION OF 

PUB FROM 

FOCL 



STORE FIRST 

AVAILABLE 

PUB NUMBER 

IN FOCL 



CALCULATE 

CHANNEL END 

DESIRED 

POSITION 



IS THIS 

THE LAST 

. CHANNEL 



GET FOCL 
OF NEXT 
CHANNEL 



#*##»F 2* ♦♦♦♦♦♦ 

♦ DETERMINE 

♦ LAST PUB 

♦ ON CHANNEL 



INCREMENT 

PUB USED 

BY PUB 

LENGTH 



GET ADDRESS 

TO MOVE 

PUB 



♦ DOES 

COMREG EXT 
♦. EXIST . 



MOVE THE PUBS 

TO MAKE ROOM 

FOR NEW PUB 



INSERT 

NEW PUB IN 

VACATED 

SLOT 



♦ G5»»*»*' 
RETURN 



♦YES 

...x! 

X 

♦ AG ♦ 

♦ Al» 

* » 

ALTCHANQ 



DETERMINE 

LAST PUB 

ON CHANNEL 



GET LAST PUB ♦ 

ON CHANNEL ♦ 

FROM FOCL ♦ 
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Chart AG. $$A$IPL2 - Common Move Subroutine 
Refer to Chart 01. 



ALTCHANQ X 

••«»#AL***»**»* 

• PUT FOCL PTR 

• IN CLDWK1 

• PUT PIB CHAN 

• BUCKET ADDR 

• IN CLDWK4 



Bl • . 
• AP *. 
OPTION *. NO 
PRESENT .*... 
• B5 .» 



INCREMENT 

CLDWK4 

PAST AP PIBS 



»A2*«*«* 
SYSMVC 



»##»B3***»* 
* RETURN 





C2 ». 




• MOVE 




RIGHT 


*• 


OR LEFT 


*. 


»A5 




». . 








*LEF 


• *« 








• 02 


*. . . 


* 








DECRL 


X 


• *•» 


•02***** 



CALCULATE 

AMOUNT TO 

BE SHIFTED 



*A5 
RIGHT TO HIGH 
CORE, LEFT TO 
LOW CORE. 



»B5 
SUPERVISOR 
GENERATION 
OPTIONS. 



• C5 
FOCL NO. TIMES 8 
PLUS THE PUB TABLE 
ADDRESS. 



» POINT CLDWK1 

♦ TO NEXT FOCL, 
♦CL0WK4 TO NEXT 

* CHAN BUCKET 



• ANY *. NO 

DEVICES ON 

•.THIS CHAN.* 



• CALC ADDR OF 

• FIRST PUB ON 

• THIS CHANNEL 



•»*ft«Gl********** 

•STORE FIRST PUB* 
• ON CHAN ADDR ♦ 
•IN CHAN BUCKET • 
•IN PIB STARTING* 
•AT DSPLT X«70« • 



DECREMENT 

SHIFT COUNT 

BY 256 



DETERMINE 

ADDRESS OF 

BLOCK TO 

BE MOVED 



MOVE 256 
BYTES TO 
NEW AREA 



DECREMENT 

SHIFT COUNT 

BY 256 



CALCULATE 

SIZE OF 

LAST BLOCK 



UPDATE 

•FROM* AND 

•TO* POINTERS 



UPDATE 

•FROM' AND 

•TO' POINTERS 



UPDATE 

'FROM' AND 

'TO' POINTERS 



MOVE 256 
BYTES TO 
NEW AREA 



NO .• LAST 
,..•. FOCL 
». ENTRY 



••••Jl«»»»* 
• RETURN 



MOVE LAST 
BLOCK TO 
NEW AREA 



» RETURN 



Charts 43 



Chart AH. $$A$IPL2 - Update Subroutines 
Refer to Chart 01 • 



UPDATE 

DISK 
ADDRESS 



•Bl*»**» 
DSKADR 



#*B3»*»** 
CHURTN 



DSKADR 

» PUT DISK ADDR 

• IN UPDATE 

• FIELD, 

• POINT TO 

» RECORD NUMBER 



RECORD 
NUMBER 
2 OR 8 



»*««E1*»«»*»#»* 

SET RECORD NO 

TO 01, POINT 

TO TRACK 

NUMBER IN 

UPDATE FIELD 



CHURTN X 

» LOAD ADDRESS 
•OF INSTRUCTION 

* TO INCREMENT 

• FOCL POINTER 



#B5»***« 
LUURTN 



ZERO WORK 
REGISTERS, 
GET NUMBER 

OF SYSTEM 
LUBS 



TRACK 

NUMBER 

09 



•••»G1«*«*«*»* 

SET TRACK NO 
TO 0, POINT 
TO CYLINDER 
NUMBER IN 

UPDATE FIELD 



Tl HI X 
**«*«H1*»**»*»**« 
» ADD 1 TO DISK » 

• ADDRESS BYTE • 
•IN UPDATE FIELD* 
•(RECORD, TRACT, • 

• OR CYLINDER) • 



IS IT 
THE LAST 
. CHANNEL 



LUUPLP 
NO .• 



IS 

LUB 

.ASSIGNED 



• E2* 
RETURN 



INCR CHANNEL 
NUMBER, GET 
FOCL ENTRY 



.« ANY «. 

♦ DEVICES «. NO 
ON THE CHAN .*... 



.• WAS •. 

NO .* PUB • 

X..». REPOSITIONED 



X 

D3 



INCREMENT 

TO NEXT LUB 

ADDRESS 



LAST 

SYSTEM 

LUB 



RETURN 



#J5»»«»» 
RETURN 
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Chart AJ. $IPLRT2 - Initialization Routine 
Refer to Chart 02. 



♦ •Al* 

SIPLRT2 



» ESTABLISH 
•ADDRESSIBILITY 
» FOR THIS 
• PHASE 



•»»C1»»»*«»» 
RELOCATE 

ADCONS 

LOAD THE 

ROOT PHASE 

BASE 



VALIDATE 

CORE 
ALLOCATION 



FIND END OF 
PARTITION 
DETERMINE 
LENGTH OF 

SUPERVISOR 



.» IS *. 

.•THERE ROOM * 
. FOR SIPLRT3 
•SIPLRT4 .* 



«*G1«**»»* 
• SET 
SWITCH 
TO LOAD 
SIPLRT4 



»»#»H1' 

SET 

ADDRESS OF 

I/O TABLES AT 

END OF 

SUPERVISOR 



* 
* 


INITIALIZE FOR 

PUB COUNTING 

LOOP 


• 


* * . 

* Kl *... 

PUBCLC .*. 

Kl *. 

YES .***IS THIS*"« 
...».THE LAST PUB 





A2 *. 


»*»»#A3**»*«***»» 


*»*»»A4*»*»*****» 


• A5 






• SAVE PROGRAM • 


AQ-E1 


» DIRECT *. 


•ALTER COUNT FOR* 


• NEW PSW • 


AT-F5 


ACCESS DEVICE.* 


•FOCL, STORE SAB* 


• STORE ADDR OF • 


AS-E5 


•• TYPE .* 


•AND PUB COUNTS • 


• RETURN POINT • 




«. . * 


*••*••••••»•»•••* 


» IN PSW » 





.• SEEK • 

OVERLAP 

••SPECIFIED.* 



» INCREASE SEEK 
» ADDRESS BLOCK 
•ISAB) COUNT BY 
• 5 



ARE 
THERE 
TEBS 



«**«*C3*» ******* 

* TURN ON TEB 

* FLAG AND 

* CALCULATE 
•NUMBER OF TEBS 

* USED 



NODASD 

* * INCREASE 

* PUB COUNT BY 

• LENGTH OF PUB 

• (8) 



ARE 
THERE 
TEBVS 



* CALCULATE * 
•NUMBER OF TEBVS* 

* USED * 



• CALCULATE • 
•NUMBER OF TEBVS* 

• USED • 



»*«B4*****»* 

PUT RETURN 

PSW IN 

PROGRAM 

NEW PSW 



INDICATE 

PRIVILEDGED 

CODE 



SAVE OLD 

PSW STATUS 

FOR 

RETURN 



* IS 
THIS A 
S/370 
CPU 



RASPCRET X 

»*F4*»*««»» 
* TURN OFF 

• RETAIN/370 
* SUPPORT 

• BIT 



.* DOES «. 
COMM. REG 
EXTENSION 

. EXIST . 



.» DOES *. NO 
*. RMS LINKAGE .».., 
•AREA EXIST.* 



SET NO 

RMS MESSAGE 

SWITCH 



RESTORE 

PROGRAM 

CHECK NEW 

PSW 



MODEL 
= 155 

*"«YES 


*. NO 


X 
»F5»«»**» 

SET MODE 
FOR 
155 


\ : 


Ix '. 



MODEOK 

*»»*»G5«*»«*»«» 

* RESTORE PSW'S 

* GET EXTENDED 

* LOG AREA 

* ADDRESS 



»#»»H5«***«««*« 
•FETCH SSBCCHHR 

• TO BUILD 

• LOAD LIST 



MOVE CODING 
TO SUPERVISOR 

TO SIMULATE 

S/360 SUPPORT 

-MC360- 



GET ADDRESS 

OF RMS 

TABLE 



« Bl» 

MONITOR 



Charts 45 



Chart AK. $IPLRT2 - Monitor, Read Control Card, and Operation Scan Routines 
Refer to Chart 02. 



AJ-H3,J3,J4,H5 



•A4»*«** 
OPRTN 



MONITOR 

»«#*»B1* 
•READRT 



READ 

CONTROL 

STATEMENT 



EVALUATE 

CONTROL 

STATEMENT 



•*B2»«**»** 
READRT 



• E3* 

READRT .». LOGSTR .». 

C2 • . C3 ». 

.♦CONSOLE*. .* FIRST *. 

.•PRTR KEYBD *. YES .« ENTRY * 

• .COMMUNICATION.* X*.FR0M CONSOLE 

». DEVICE .* *. PRINTER .* 

*. .* *. KEYBD.* 



♦ NO 



•#*»D2******»** 

INITIALIZE TO 

READ CONTROL 

STATEMENTS ON 

READER 



♦ YES 



READ STATEMENT 
FROM CARD ♦ 
READER 



TURN OFF 

FIRST ENTRY 

SWITCH 



CLEAR 
INPUT 

BUFFER 



♦ G3 
REREAD 



STATEMENT 

ENTERED 

.CORRECTLY. 



•J2»»**» 
RETURN 



****J3 *********** 
MSGRTN AQ 
*«-•-«-#-«-«—»-** 
DISPLAY MESSAGE 
* 0I18A * 
***************** 



TURN OFF 

END-OF-CARD 

SWITCH 



*ft**»C4********** 
♦TRANSLATE CARD ♦ 
♦INTO INNER CODE* 

♦ AND TRANSLATE • 

♦ AND TEST FOR ♦ 

♦ THE OP CODE ♦ 



TEST FIRST 

CHARACTER FOR 

A,D, OR S 



•*»*»EA********* 

* ALTER THE 
» DELIMITER 

* (COMMA IS 
•AN ERROR STOP) 



*»»#»F4******* 

* TRANSLATE 

* AND TEST 

* FOR END OF 

* OP CODE 



**** 

* .. * 

* B5 * 

* * 
**** 



###»»B5*******«* 

• CALCULATE 

• LENGTH OF 

♦ OP CODE, MOVE 
♦OP CODE TO END 

♦ OF OP TABLE 



• TEST FIRST • 

• OPERAND FOR • 
•VALID CHARACTER* 



STORE 

ADDRESS OF 

FIRST OPERAND 



CDSCH X 

••••*E5»*»«»»»«»« 

♦ LOAD SEARCH • 

♦ INCREMENT AND • 

♦ SEARCH FOR ♦ 

♦ OP CODE IN • 
♦OPERATION TABLE* 



F5 *. 

.•OP CODE* 
= SEARCH 
TABLE 
. ENTRY 



#»»#*G4* 

•TRTBRC AQ* 

**"* TisT*LAST~*~* 

* CHARACTER • 

• FOR BLANK • 


••♦•*G5 *****•*••• 

• LOAD ADDRESS • 

• OF ROUTINE • 

• FOUND IN TABLED 

• BRANCH * 

• TO IT * 


X 
»#»«»H4 ***•*••»»• 

♦ RESTORE THE ♦ 

• DELIMITER • 

♦ (COMMA IS * 

• A VALID STOP) * 


X 

H5* "». 

ADD .«" ADD, "». SET 

SET, OR 

*. DEL .* 

X "». .«" X 

•♦•»• *DEL ••••• 

•AL • . »AM • 

» A2» . • Bl» 

« • X * * 

• ***** * 
GETADD *AL * GETSET 
* Al* 
* * 


X 
**** 

* * 

* B5 * 

* * 
**** 
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Chart AL. $IPLRT2 - Monitor Core Usage for ADD and DEL Cards and Allocation Subroutine 
Refer to Chart 02. 



GETDEL X 

* GET 

» DISPLACEMENT 

* TO DEL RTN 

* IN $IPLRT3 



GETADD X 

««**»A2******** 

• GET 

• DISPLACEMENT 

• TO ADD RTN 

• IN SIPLRT3 



• ♦A4 

ALCRTN 



POINT TO 

START 

OF SIPLRT3 



«»B3»»«»*«» 
» INDICATE • 
•BOTH SIPLRT3 
AND SIPLRT4 
* IN CORE 



1ST 

ADD OR 
DEL 



INDICATE 

FIRST CARD 

READ 



INDICATE 

NO PHASE 

IN CORE 



F2 *. 

.» ROOM • . 
•IN CORE FOR* 

SIPLRT3 AND 
•• SIPLRT4 .* 



POINT TO 

IPLRT3 LOAD 

POINT 



» ADD LENGTH OF 
•SIPLRT3 TO ITS 
• LOAD POINT 



♦ LOAD SIPLRT3 

♦ AND $IPLRT4 

♦ CONSECUTIVELY 



POINT TO 

SIPLRT3 LOAD 

POINT 




LOAD 

SIPLRT3 AFTER 

ROOT 



INDICATE 
$IPLRT3 
IN CORE 



»«H3«*«««*« 

* INDICATE ♦ 

SIPLRT4 

NOT IN CORE 

AFTER 

* ROOT • 



ADD 

OR 

DEL 



• MPS 

FEATURE 
*. PRESENT 



ALCRT1 

»****C4*«**»***»* 

• FORCE PROGRAM * 

• CHECK TO GET • 
•INTO SUPERVISOR* 

• STATE ♦ 



GET ADDRESS 
OF PIB TABLE 

AND ADDRESS 

OF END OF 

CORE PLUS ONE 



SET AREA FOR 
F0REGR0UND2 
IN FG2 PIB 



RETURN TO 

PROGRAM 

STATE 



GET ADDRESS 
OF FGL PIB 
AND OF 2ND 
HALF OF PIB 
TABLE 



*»***F4»«»**"»* 

• GET ADDRESS 

• OF FG1 
♦COMMUNICATIONS 

• REGION 



SET AREA FOR 
FOREGROUND1 
IN FG1 PIB 



•»»H4«*«*«»«» 
GET ADDRESS 
OF FG2 PIB 
AND OF 2ND 
HALF OF PIB 
TABLE 



••**»J4*»«*«*»«* 

• GET ADDRESS 

• OF FG2 
•COMMUNICATIONS 

• REGION 



»C5«»»»« 
RETURN 



• B3 • 



• A5. 
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Chart AM. $IPLRT2 - Monitor Core Usage for SET Card and Allocation Subroutine 
Refer to Chart 02. 



ALCRT2 



GET ADDR 

AFTER END OF 

ROOT PHASE 



* GET NUMBER 
•OF CORE BLOCKS 

* FROM PIB AND 
« GET SIZE 

* OF BLOCKS 



CI *. 
.» IS *. 

THIS SET 
THE FIRST 
. CARD 



INDICATE 

SIPLRT3 NOT 

IN CORE 



INDICATE 
FIRST SET 
CARD READ 



.« IS *. 

.* SIPLRT4 *. NO 
.LOADED AFTER .*... 
». SIPLRT3 .» 



*.»E2»»»»**« 

ADD LENGTH 

OF SIPLRT3 

TO ADDRESS 

FOLLOWING 

ROOT 



GET STARTING 

ADDRESS OF 

AREA TO BE 

ALLOCATED 



D4 «. 

* LABEL » 
AREA IS 
ORIGIN 
AODRESS 



GET STORAGE 

PROTECTION 

STARTING 

ADDRESS 



.« SIPLRT4 ♦. NO 

•.LOADED AFTER 

«. ROOT .♦ 



ALCRT3 

#»#»»E4*»»*»»»»» 

• AOD 10K TO 

• STARTING 

• ADDRESS (SIZE 

• OF SMALLEST 

• BG AREA) 



) 


< 




• •Fl*'"»**» 








• INDICATE 




SIPLRT4 LOADED 




• AFTER ROOT 










< 












POINT TO 




$IPLRT4 


* . 








* 




< 




•••«H1** »**»»* 








POINT TO 




ADDRESS 




FOLLOWING ROOT 


• . 




« 




< 




*«**J1»»*#*«»* 








LOAD 




SIPLRT4 


* 










•*•«•*«••••*•* 






'x 





.» AREA ». 
TO BE 
ALLOCATED 
. FITS 



»*G4»*»»»*« 

SET PIB 

POINTER 

TO 

ALLOCATED 

AREA 



ALCERR 

•GET ADDRESS OF 

• MESSAGE 01221 
...X» 'ALLOCATION 

• ERROR-INSUF- 

• FICIENT CORE" 



• AQ • 

• Dl» 

ABNCHK 



• Bl» 
SETRTN 



•••H5*«««*««* 
SET KEY FOR 

ALLOCATED 

AREA IN PIB 

TABLE 



STORE END 

OF PROBLEM 

PROGRAM AREA 

MINUS 1 IN 

COMREG+32 



48 DOS IPL and Job Control 



Chart AN. $IPLRT2 - Move Routine 
Refer to Chart 02. 



****A£******** 
* 

* SYSMVC 
* 

************** 



****B3 ********* 

* * 

* RETURN * 

* * 
*************** 



*C1 
RIGHT TO HIGH 
CORE, LEFT TO 
LOW CORE. 



C2 *. 
* MOVE *. 

RIGHT *. RIGHT 
OR LEFT .* 



* DECREMENT * 

* SHIFT COUNT * 

* BY 256 * 

* * 
***************** 



* CALCULATE 
X* AMOUNT TO 

* BE SHIFTED 

************** 



*****D4******* 

* DETERMINE 

* ADDRESS OP 

* BLOCK TO 

* BE MOVED 



* E4 * 

* * 
**** 



SHIFT 

COUNT 





* CALCULATE * 

* SIZE OF * 

* LAST BLOCK * 

* * 
***************** 



* MOVE 256 * 
X* BYTES TO * 

* NEW AREA * 

* * 
***************** 



*****F3 ********** 

* UPDATE * 

* 'FROM' AND * 

* 'TO' POINTERS * 

* * 
***************** 



* DECREMENT 

* SHIFT COUNT 

* BY 256 

*************** 



* UPDATE * 

* 'FROM' AND * 

* 'TO' POINTERS * 
***************** 



*****H4«* ******** 

* MOVE LAST * 

* BLOCK TO * 

* NEW AREA * 

* * 
***************** 



****j 4** ******* 

* * 

* RETURN * 

* * 
*************** 



**#**P5********** 

* * 

* UPDATE * 

* 'FROM' AND * 

* 'TO' POINTERS * 

***************** 



*****G5********** 

* * 

* MOVE 256 * 

* BYTES TO * 

* NEW AREA * 

***************** 

X 

**** 

* * 

* EA * 

* * 
**** 
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Chart AP. $IPLRT2 - Update LUB, Get Operand , and Conversion Subroutines 
Refer to Chart 02. 



LUURTN 



•A2****» 
LUDRTN 



*A4»»»«* 
FDSRTN 



GET ADDRESS 

OF UPDATE 

LUB ROUTINE 

•UPLUP' 



GET ADDR 

OF DOWN DATE 

LUB ROUTINE 

•DDLUB' 
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Chart AQ. $IPLRT2 - I/O Subroutines 
Refer to Chart 02. 
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Chart AR. $IPLRT3 - ADD a Device 
Refer to Chart 03. 



(Part 1 of 2) 
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Chart AS. $IPLRT3 - ADD a Device (Part 2 of 2) 
Refer to Chart 03. 
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Chart AT. $IPLRT3 - Delete a PUB 
Refer to Chart 03. 
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Chart AU. $IPLRT3 - Build PUB Table Subroutine 
Refer to Chart 03. 
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Chart AV. $IPLRT3 - Device Type Conversion Subroutine 
Refer to Chart 03. 
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Chart AW. $IPLRT3 - Conversion and Update FOCL Subroutines 
Refer to Chart 03. 



••A4»»*»* 
CHURTN 



*BL*»»** 
HEXRTN 



•••«*CL********** 

» GET NUMBER » 

* OF CHARACTERS » 

• TO CONVERT * 
•AND GET ADDRESS* 
•OF END OF FIELD* 



GET NEXT 
BYTE TO BE 
CONVERTED 



•NULL FOCL LIST,* 

* ZERO PUB NO., * 

* AND GET START * 

* ADDRESS OF • 

* I/O TABLE * 



»»**C4*»«»***» 

DECREASE 

PUB NUMBER 

BY 1 TO 

FORCE BRANCH 



*D2 
STARTING WITH 
END ADDRESS 
MINUS 1, EACH 
BYTE IN THE FIELD 
IS CHECKED IN 
THIS LOOP. 



»*»* 












* D4 •.. 




«D5 






FIRST TIME 






THROUGH, PUB 


XT X 


NUMBER IS 


#»»»*D4»«»»*»«»#* 


RESTORED TO ZERO. 


» AOD ONE TO • 




* PUB NUMBER * 




* AND UPDATE » 




* SCAN ADDRESS * 




* *D5 « 





• E4 
CHULOP** 



PACK FIELD 
TO CONVERT TO 
HEXADECIMAL 



F4 *. 
.* COMP *. 

CHAN. NO. 

TO SEARCH 
. CHAN. . 



DECREASE 

CHANNEL 
NUMBER 



UPDATE THE 
CHANNEL 
NUMBER 



.* PUB *. 

.* CHANNEL *. NO 
•.EQUALS SEARCH.*... 
*. CHANNEL .* 



CHSLOP 

*»»»»J5******««* 

* STORE FOCL 

* ENTRY AND 

* ADD 1 TO 
•CHANNEL NUMBER 

* TO RESTORE IT 



Charts 57 



Chart AX. $IPLRT4 - SET Statement Processor and Assign SYSLOG 
Refer to Chart 03. 
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Chart AY. $IPLRT4 - Assign SYSRES and Move I/O Tables 
Refer to Chart 03- 
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♦*.D5«««*»*» 

INITIALIZE 

PUB TO 

POINT TO 

CONSOLE 

PRTR KEYBD 



E5 ♦. 
.♦ NO ♦ 

♦ RMS 

MESSAGE 
♦.REQUIRED 



DISPLAY 

MESSAGE 

0I25I »B5 



MOVE THE 

TEBS TO 

LOW CORE 



NOMTEB 

•♦♦•♦H2»»» •»*»*•• 

* RESTORE • 

• PROGRAM MASK, » 
♦PUT ADDRESS OF ♦ 
♦•ONINT' IN PROG^ 

♦ CHECK NEW PSW ♦ 



POINT TO 

PUB 

TABLE 



END 

OF PUB 

TABLE 



• DEV * 

A 1052 

3210 OR 

3215 



YESL0G1 

••••«G5«* 
♦PUBSCAN 



SEARCH 

FOR 

3211 



DISPLAY MSG 
0I20I 'DOS 
IPL COMPLETE' 



...J5». ..**.. 

SVC 14 

EOJ - GO TO 

JOB CONTROL 



POINT TO 

NEXT 

PUB 
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Chart AZ. $IPLRT4 - I/O and Check Device Type Subroutines 
Refer to Chart 03. 



»***A1*»**» 
* OPNRTN 



»»«-»A4«»»*« 
* DSDRTN 



GET ADDR OF 

LUB AND PUB 

TABLES FOR 3 

PARTITIONS 



GET SYSTEM 

LIST LUB 

ADDRESS 



.♦ IS ». 

.» THERE A * 

».PUB FOR THIS 

♦ . LUB .• 



CALC PUB 

ADDR FROM PUB 

PTR IN LUB 



Fl ♦ . 
.* IS ♦. 

.♦THIS DEV A ♦ . NO 
. TAPE, DISK, .♦... 
♦ . OR DATA .» 
♦.CELL .♦ 



YES 



OPNUSN 

*#G1»»»»*»» 

* TURN OFF » 

• JOB CONTROL » 
*ASSGN FLAG AND 

♦ OWNERSHIP * 

♦ BIT • 



OPNEND 

»»»*»H 1 ♦♦♦♦♦♦♦♦ 

* SET PUB 

* POINTER IN 
» LUB FOR THIS 

* DEVICE TO 

* A NULL VALUE 



» FINISHED 
SCANNING 
*.LUB TABLE. 



.* ALL ». NO 
». PARTITIONS .*... 
♦ . CHECKED .» 



•«»C3**»«» 
RETURN 



.* DASD ♦ . NO 
.FILE PROTECT .♦... 
*. OPTION .♦ 



INCREASE PUB 

ADDRESS TO 

NEXT PUB 

ENTRY 



INCREMENT 

TO NEXT 
PARTITION 



DSDP2 
YES .* 



#F2»»**»» 
PUBSCAN 



END 

OF PUB 

TABLE 



LAST ♦ . YES 


♦ ZERO 


THE » 






: AT • 
EG+92 » 


TABLE .* 


* COMRE 


.♦ 


• «F5 • 


•NO 


♦ E5 ».. 




X 








DSDRET 




E4 *. 


X 




• *»»E5*»«*» |, *«* 


2311 ». 


« * 


OR . ♦ 


» RETURN * 


2314 .* 


*.*«»##* 



F4 « 
2321 



*F5 
COMMUNICATIONS 
REGION DISPLACEMENT 
92 IS THE CHECK POINT 
AREA, BUT IS USED TO 
KEEP TRACK OF THE DASD 
DEVICES THAT ARE FILE 
PROTECTED DURING THE 
IPL PROGRAM. IT IS 
RESET TO ZERO BEFORE 
THIS ROUTINE IS EXITED. 



INCREMENT 
POINTER TO 
NEXT PUB 



«***J2*»*»»»**» 

FETCH 

$$BUFLDR TO 

LOAD ALL 3211 



X 

»K2*»*«* 

RETURN 

TO 
CALLER 



X 

DSDP3 ;. 

•••*»H4********** 
» GET CHANNEL « 
♦NUMBER, CHANNEL* 

♦ MASK ADDRESS, • 

♦ AND CHANNEL * 

♦ SUPPORT FLAG * 



.♦DEVICE ♦. 

.♦ SUPPORTED ♦. 

ON THIS 

♦. CHANNEL .♦ 



♦*»^«J5««**«««#« 
♦GET ADDRESS OF 

♦ MESSAGE 0I23I 
X^ 'DASD ON NON- 

♦FILE-PROTECTED 

♦ CHANNEL' 
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Chart AZA. $IPLRT4 - Find PUB and I/O Subroutines 
Refer to Chart 03. 



SYSRES LUB POINTER 
TIMES 8 PLUS THE PUB 
TABLE ADDRESS. 



SUPERVISOR 
GENERATION 
OPTIONS. 



»»*A2****» 
COMCHK 



LOAD REGISTER 
WITH LENGTH 
OF ENTRY ON 
DEVICE LIST 



» CALC ADDR OF » 
•PUB TABLE ENTRY* 
* FOR SYSRES ♦ 



ALTCHANQ X 

**«»«A5»«««««ft« 

* PUT FOCL PTR 
« IN CLDWK1 

* PUT PIB CHAN 

* BUCKET AOCR 

* IN CLDWK4 



C2 *. 

PUB 
INVALID 

**YES 



* SET JOB 
CONTROL FLAG 

» IN PUB 
♦ TO X« 04» * 



STORE PUB 
ADDRESS FOR 

SYSRES IN 
PIB DISPLT 



*#*»D3********« 




.» MPS 


NORMAL RETURN * 


YES 


.* AND TP 


. VIA LINK * 




OPTIONS 


REGISTER+4 * 




». PRESENT 
*. *B1 . 



INCREMENT 

CLDWK4 

PAST AP PIBS 



• POINT CLDWK1 
» TO NEXT FOCL, 
•CLDWK4 TO NEXT 
« CHAN BUCKET 



CALCULATE 

PUB ADDRESS 

FROM LUB PUB 

POINTER 



ERROR RETURN 
VIA LINK 
REGISTER 



COMM 
REG. EXT 
. EXIST 



.* ANY ». 

♦DEVICES ON THIS* 
*. CHAN .* 



INCREMENT 

TO NEXT 

PUB TABLE 

ENTRY 



GET 

ADDRESS OF 

COMM. REG 

EXTENSION 



CALC ADDR OF 
FIRST PUB ON 
THIS CHANNEL 



* C/U IN 

SYSTEM PUB 

♦. SAME AS . 

*. IPL .* 



•**«ttG5********** 
•STORE FIRST PUB* 
• ON CHAN ADDR * 
•IN CHAN BUCKET * 
•IN PIB STARTING* 
•AT DSPLT X'70' « 



LAST 

PUB IN 

TABLE 



VALID 

DEVICE 

TYPE 



CALCULATE 

PUB NUMBER 

AND TRUE 

ADDRESS 



LAST 
FOCL 
ENTRY 



RETURN TO 

LINK ADDRESS 

(ERROR) 



RETURN TO 

LINK ADDRESS 

PLUS 4 



RETURN TO 

LINK ADDRESS 

PLUS 8 



»J5««««* 
RETURN 
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Chart AZB. $IPLRT4 - Date and Time Subroutines 
Refer to Chart 03. 



##A1»«**« 
DATERT 



♦A3***** 
ADREST 



♦A4****» 
TIMERT 



Bl *. 
.* IS *. 

•DATE FIELD 

13 BYTES 
• . LONG 



CI *. 
.* IS ». 
.* YEAR «. YES 
.GREATER THAN .»..X 



SET UP TO 

CHECK MONTH 

FIRST 



GET MONTH 

FIELD ADDRESS 

AND LENGTH 



TH END DATE.*. 

IS 31 .• 
». »K1 .* 

***YES 




X '. 

D2* **. '. 

'*. YESX 
LEAP YEAR ...... 

*«N0 '. 


X 
♦E2«»»*****»» 

DECREASE « 

DAY COUNT » 

BY ONE * 


x! 


*.X 





DAY FIRST 
•DATE FIELD.* 




"•YES 




X 

♦♦♦C3»»«*»*»* 




CALCULATE 

ADDRESS OF 

SECOND FIELD 


1 j 




X '. 



♦♦♦♦♦D3********** 
•CALCULATE FIRST* 

• FIELD ADDRESS ♦ 

• AND GET ♦ 

• SUBFIELD ♦ 

• LENGTH • 



TIME 
FIELD IS 
.14 BYTES 



GET HOUR 

FIELD ADDRESS 

AND LENGTH 



CONVERT 
HOUR FIELD 
TO DECIMAL 



CONVERT 

MINUTES TO 

SECONDS AND 

ADD TO TOTAL 

IN TIMREG 



GET SECONDS 

FIELD ADDRESS 

AND LENGTH 



CONVERT 

SECONDS 

TO DECIMAL 



CONVERT 
MONTH FIELD 
TO DECIMAL 



♦♦♦♦♦F2****»**»* 

• SET 

• FOR DAY 

• FIRST, RESET 

• ADDRESS OF 

• OPERAND FIELD 



GET DAY 
FIELD ADDRESS 
AND LENGTH 





» RESULT *. YES. 




IS GT 24 .*..X.X. 












*. .* X 




♦NO ♦ ♦♦*♦ 




*AQ ♦ 




• Cl» 




. # # 








ILLCD 




X 




♦ 


CONVERT HOURS • 


* 


TO SECONDS • 




AND STORE * 




IN TIMREG • 


* 


>♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



ADD SECONDS 
TO TOTAL 
IN TIMREG 



IS 
DAY OR 
. GT 31 



GET MINUTE 

FIELD ADDRESS 

AND LENGTH 



•MULTIPLY TOTAL • 

• IN TIMREG • 

• BY 300 AND • 

• CALCULATE ♦ 
•ACTUAL TIME »K5» 



♦♦♦♦♦HI********** 


♦ ♦ 


♦♦♦H2*»*»»« 


♦ ♦#♦ 


♦♦♦♦♦H3»* ******** 


♦ ♦♦♦♦H4**»* *♦•-»-».* 


♦♦♦♦♦H5»»«*»»*»»» 


•CALC THE JULIAN* 


•DECRTN 


AP* 


* CALCULATE 


♦ 


•DECRTN AP* 


• MOVE TIME TO • 


* ENDING DATE * 








* THE DAY OF 






• CORE STORAGE • 


•OF THE PREVIOUS* 




CONVERT THE • 


* THE YEAR AND 




• CONVERT • 


• LOCATION « 


• MONTH • 




DAY TO 




• CONVERT 




» MINUTE FIELD * 


* HEX »54« OR • 




• 


DECIMAL 


* 


* TO DECIMAL 


* 


• TO DECIMAL • 


• DECIMAL 84 • 


X 




X 

♦ ♦♦♦ 


























X 






• C2 • 




• G3 • 




X 


















***»*J3* ********* 


J4 •. 


X 










•MOVE DATE INTO 






♦ ♦♦♦^♦♦♦♦♦♦♦♦^ 










• COMMUNICATION 




.» RESULT •. NO 












• REGION, DISPL 




•. IS GT 60 ...... 


* RETURN * 










« HEX 4F OR 






♦ ♦ 










• DECIMAL 79 


* 


"♦..♦* X 


♦♦♦♦♦♦♦ 


»♦♦♦♦♦♦♦ 



• Kl 
IF THE PREVIOUS 
MONTH ENDING DATE 
IS 31, THE CURRENT 
DATE IS IN FEBRUARY. 
THE ROUTINE MUST 
MAKE A LEAP YEAR 
CHECK. 



♦K3*»*»* 
RETURN 



»K5 
TIME FIELD AT X«54« SYSTOD 
IS IN THE FORM SECONDS 
TIMES 300. THE TIME BEING 
SET IS EQUAL TO USER 
SPECIFIED TIME OF DAY PLUS 
MAXIMUM TIMER INTERVAL 
(15 1/2 HRSJ MINUS ELAPSED 
TIME. 
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Chart AZC. $IPLRT4 - Copy Subroutine 
Refer to Chart 03. 



»»*«A3**»*« 
CPYSLB 



• MPS • 
FEATURE 

• . PRESENT .» 



••••C3«******« 

GET ADDRESS 

OF LUB TABLE 

AND OF 2ND 

HALF OF PIB 

TABLE 



•GET ADDRESS OF 

• FOREGROUND 1 

• PIB 



GET ADDRESS 
OF SYSTEM 

LUB INDEX 
FROM PIB 



CALCULATE 

ADDRESS OF 

FIRST SYSTEM 

LUB FOR FG 



COPY LUBS 

FOR 

FOREGROUND 1 



* COPY SYSLOG 

♦ SYSRES AND 

• SYSREC LUBS 
•FROM LUB TABLE 



•GET ADDRESS OF 
» FOREGROUND 
•COMMUNICATIONS 
• REGION 



COPY END-OF- 
CORE ADDRESS, 
SYSTEM DATE, 
AND CHANNEL 
QUEUE LENGTH 



COPY LUBS 

FOR 

FOREGROUND 2 



COPY 

LABEL 

CYLINDER 
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Chart AZD. $IPLRT4 - Set Job Control Flags Subroutine 
Refer to Chart 03, 



ASNRTN 



LOAD REGISTER 

FOR LOOP 

CONTROL 






.• 


IS 




* 


Y 


: S 


•CLASS ASSIGNED. 


















* 


"* » 


* 












»N0 






































» El 


*. . 




























X 










ASNEND 


El* "* 






















NO . » 


LAST 










. . .« . 


NI 


;l 






« 





* GET FIRST 
..X» LUB ADDRESS 

» AND GET 

• NICL ENTRY 



****F1»«*»» 
RETURN 



*G1 
THE JOB CONTROL 
FLAGS MAY HAVE 
BEEN SET AT 
SYSGEN TIME 
BUT ARE SET 
AGAIN TO INSURE 
THAT THEY ARE 
CORRECT. 



Fl OR F2 
•.PROCESSED.* 






►YES 




C2** 

• * Mf 

FEAT 
». PRE. 


>S **• 

URE 
>ENT .« 


. NO X 




'YES 




) 

•••D2» 

INDIC/ 

PART 

AND A[ 

FOR 

SYSTEM 


C 

TE FG 
TION 
)JUST 
FG 
UNITS 

X 


** 



♦ MPS «. NO 

FEATURE .*... 
*. PRESENT .* 



•«»G2»»*»«««« 

UPDATE LUB 

CTR BY NO. 

OF FG 

PARTITION 

SYSTEM LUBS 



* GET PUB » 

• ADDRESS AND • 
•SET JOB CONTROL* 
» FLAGS IN PUB * 
•TO X«04» «G1* 



SET FG 
ASSGN 
FLAGS 



TURN OFF 

OWNERSHIP 

BITS 



GET 

NEXT LUB 
ADDRESS 



SET BG 
ASSGN 
FLAGS 



H2 •. 

Fl 
PARTITION 
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Chart AZE. $IPLRT4 - Reorder MPX Channel LUBs and PUBs 
Refer to Chart 03. 



FPRTN 



#.»A2»«*«« 
MPXRTN 



LOAD MPX 
ENDING 
ADDRESS 



NO .» FLOATING 
...». POINT 
*. FEATURE 



HOLD 
NEW 
PSW 



TURN OFF 

FLOATING 

POINT 

SWITCH 



SET 
FLOATING PT 
BYTE ON IN 
» COMM. REG • 



*G1»*»»* 
RETURN 



.» BURST #. 

.» MPX FLAG * 
*.0N IN COMREG 
*. +52 .♦ 



GET NEW 
PUB NUMBER 
AND ADDRESS 



.* DEVICE *. 

•ON MULTIPLEX . 

*. CHANNEL .* 



E2 •. 
.» CAN *. 

* DEVICE BE ♦ 

OPERATED IN 
•BURST MODE.» 



« BURST » 

ORIGIN 
♦ESTABLISHED* 



TURN ON BURST 

DEVICE FLAG 

AND STORE 

ORIGIN OF PUB 



RETURN 



MPXHL2 

*»»*»C4* »♦»♦♦•♦• 

* CALCULATE END 

• OF LUB TABLE 
» AND GET 

* PRESENT 

♦ LUB ADDRESS 



SCAN LUB 

TABLE AND 

CHECK FOR 

ASSIGNED LUB 



.* BURST ♦ . 

ORIGIN 

♦ESTABLISHED* 



MOVE PUBS TO 
MAKE SPACE 
FOR NEW PUB 



•**G3***«**» 

INSERT NEW 

PUB AND 

CALCULATE 

NEW BURST 

ORIGIN 



...X. 
X 

E4* *♦. 

END 

OF LUB 

TABLE 



*«B5 

♦ TURN OFF 
BURST FLAG 

AND GET 
NEXT PUB 

♦ ACDRESS 



SCAN PUB 

TABLE TO FIND 

PUB ASSIGNED 

TO LUB 



RESTORE 
CHANNEL 

QUEUE 
POINTER 



RETURN 
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Chart BA. $JOBCTLA - Initialization 
Refer to Chart 04. 



#*»B1#»»*««» 

INITIALIZE 

BASE 

REGISTERS 

• HI 



*»***A2«*»«*«*«* 

* MOVE FICL 

* FROM PIBTBL 
•FOR BG, Fl. F2 

* TO LOC. FlCLS 



SET 

SYSTEM 

FICLS 




•SEIZE SYST AND 

• SET SYST MASK 

• TO X'FF' 



SET F2 

INDICATOR 

IN 

SYSLOG 

IDENTIFIER 



N02314 

**#»»C3»»»»»«««» 
» ZERO 

• COMMUNICATION 

• REGION 

• ADDRESSES 

• *A5 



PERFORM 

RELOCATION OF 

JOB CONTROL 



PERFORM 
RELOCATION OF 
EXTERN. REF. 



FICNIC 

ft**»*Fl»*******« 

• MOVE NICL 

• FROM PIB TBL 

• FOR BG, F2+F1 

• TO LOC NICLS 

• #K1 



BASRG1-SET TO THE 
JOB CONTROL ORIGIN 
-BASVCT-. THIS REG 
ALSO USED AS A COMMON 
BRANCH REG TO THE 
CONTROL STATEMENT 
READ ROUTINE. 
BASRG2-P0INTS TO 
BEGINNING ADDRESS 
OF OVERLAY AREA 
-OVRVCT-r. THIS IS 
AREA WHERE JOB CONTROL 
PHASES SJOBCTLD, 
$JOBCTLG, AND $JOBCTLJ 
ARE LOADED. 
BASRG3-SET TO BASRG2 
+4096. 

BASRG4-P0INTS TO THE 
COMMUNICATION REGION. 



•*»E2*»*»*»* 

SET Fl 

INDICATOR 

IN 

SYSLOG 

IDENTIFIER 



• SET SYSLOG • 

• ASSIGNMENT • 
•SWITCHES »B5» 



»»*#E3»»»*»«*«« 

SAVE VALUE 

OF SYSTEM 

TIMER FROM 

HEX LOC-50-57 



**G2*»**»*» 
SET BG 
INDICATOR 



.PROGRESS 
• '•NO 



##G3*»*»*«* 

•SET CANCEL • 

•INDICATOR OFF* 

* IN COMREG 

• +56, BIT 4 • 



*»*«#H2»»»»«**»»« 


»»##»H3»» »•••«♦*• 


*. PUT LUB TABLE • 


•DSKINT BD* 


* DISPLACEMENT » 




* FOR • 


• PERFORM INIT. * 


• SYSRES IN • 


• FOR DISK * 


* WRKRG3 • 


» SUPPORT * 



.•. 


• A5 


A4 •. 


1. 


.» JOB •. 




ACCOUNTING- •. 




INTERFACE .* 


2. 


. SUPPORT .• 





#»B4»»*»*** 

•SET BRANCH 

•AT •ACCTBRl' 

• TO PROCESS 

* ACCOUNTING 



LENGTH OF PROBLEM 

PROGRAM LABEL AREA 

-C0MREG+44-. 

LAST CHECKPOINT 

NUMBER 

-COMREG+92- 

HIGHEST CORE ADDRESS 

OF LONGEST PROBLEM 

PROGRAM PHASE 

-C0MREG+40-. 



• B5 
THE ASSIGNMENT 
FOR SYSLOG IS 
DETERMI-NED AND 
SWITCHES IN COMREG 
+56 ARE SET. 



CLEAR ACCT 

FIELD IN 

PARTITION 

TABLE 



*#**»E4»*»*** 

• RETURN 

• USER JOB 

• NAME TO 

• COMREG 



GET 

PARTITION 

PIB 



RESTORE 

JOB NAME 

TO SAVE 

AREA 



• IF ASSIGNED » 
« GET PUB TBL • 
•ADDR FOR SYSRES* 



* Al» 
ACCTIGN4 



*K1 
THE FORMAT FOR LOCS NICLS 

. BG . F2 . Fl . 

niclsIss'ppIss'ppIss'ppI 
ficlsIss'ppIss'ppIss'pp! 

WHERE- 

ss = system class 

PP = PROGRAM CLASS 



• K3 
THERE ARE 7294 
BYTE/TRK FOR 2314. 
THE CORE IMAGE 
DIRECTORY HAS 15 
REC/TRK . 
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Chart BB. $JOBCTLA - Initialization and Control Statement Read 
Refer to Chart 04. 



.* IS *. 

.* PAUSE SW ». 
.ON -COMREG+56. 
*. BIT 5 .* 



Bl ♦. 
.* WAS ». 

•LAST INPUT *. 

ON SYSLOG . 
•.COMREG+56.* 

•.BIT 2.* 



• YES 



CI ». 

.» BATCH ». 

• COMMAND • 

JUST ISSUED 

♦.COMREG+59.* 

•.BIT 7.* 



RESET 

BATCH INIT 

FLAG 



♦ NO 



SET PAUSE 

SWITCH 

OFF 



•»»««E1********** 

• INITIALIZE • 

• FOR I/O-LOAD • 
•ADDR. OF SYSLOG* 
» DFB IN REGL « 



BC-D1 








BD-J4 










BG-B3 








BL-D3 










BM-B2 








BM-H3 






ACTRSP X 


CH-F5,H5 
















##A5******* 


CJ-B2.B4 


C3 


D2 


K3 










* SET INPUT * 


CK-C3,C4 


E3 


F4 


J2 










* FROM SYSLOG 


CL-K4 
















* SW ON-COMREG 


CP-H5 








* A3* 








*+56 BIT 2 OFF 


DG-J5 


















DK-J1,H4 


Kl 
















EB-B4 


















EE-B4.J4 


K4 
















EL-F3 


















GA-C4 








* B4 «... 










GB-B3 








* » .X. . . . 










GC-G1 


• #»* x 










GD-F2.J5 








CONTROL .*. 










GE-K2 








B4 ». 










GF-F3 


















GG-81 








.* UNIT 






YES 




GH-F5 








*. EXCEPTION 










GL-C2.C4 


C5 


D3 


El 


•.ON SYSLST. 










GM-H3 


















GR-J3 














X 




HA-F2.G5 


H4 






• NO 








* C5 * 


HF-F5 














»BL * 




HH-E3.H5 














* Bl* 




JF-J5 








X 






ATNCUU 


X 










****#C4«»»*»*« 






C5****. 










♦RDSTMT 


BG* 




.* DID *. 


















.* A BLANK * 










* READ 








*. STOP THE 










* STATEMENT 




* 




*. SCAN .* 










»•*»»•**•**»»« 




* 




*'• .'* 



NO 



ACCTBR1 .*. 

D2 ». 

.* JOB «. 

ACCOUNTING 

INTERFACE 

. SUPPORT . 



* OTHER 

PARTITIONS 
*. ACTIVE . 



*»#F2* 

INCREMENT 

PARTITION 

COUNT BY 1 

IN COMMON 

TABLE 



*D3 
OPNUMH IS THE 1 BYTE 
DATA INFORMATION 
FIELD IN A LOAD * 

INSTRUCTION. IT IS 
USED TO MAINTAIN A 
COUNT OF THE PARAMETERS 
PROCESSED FROM THE CURRENT 
CONTROL STATEMENT. 



ACCTLV1 

•♦E3»****** 
* TURN OFF 

* NO ACTIVE 
...X* PARTITIONS 

* SWITCH 



CLEAR TIME 

COUNTERS IN 

PARTITION 

TABLE 



.X. 

X 

* B4 



*D4****** 

RESET 

OPNUMH 

TO ZERO 



* IS 

THIS STMNT 
*. BLANK . 



* INIT REG 
P0INT4 
WITH 1 TO 
START IN 

•COL. 1 *K1 



IS 
COL 1 
BLANK 



*#H4******* 
* INCREMENT * 

♦REG P0INT4 BY* 
1 TO INDICATE 

* NONBLANK IN * 
•COL 1 *K1* 



P0INT1 BUFFER 
P0INT2 BUFFER LENGTH 
JBCSW4 SET BIT 8 
OFF. 



♦ Kl 
P0INT4 IS ULTIMATELY INITIALIZED TO A 
VALUE OF 5 OR 6. IT IS USED AS A MASK 
TO CHECK THE CONDITION SWITCHES IN THE 
FUNCTION OF A FOUND ARGUMENT IN THE 
BRANCH TABLE LOOKUP ROUTINEi BTLOOP. 



** J4******* 

* INIT REGS 
AND SWITCH 
JBCSW4 FOR 

SCAN RTN 

* *J1 



GET 1ST OPND- 
SET COND CODE 
FOR STOP CHAR 



* ASSUME // * 

* CTRL STMNT * 

*AND SET ROUTINE* 

•TO PROC OPTR • 

•COMM *H5* 



E5 •. 
.• PARAM «. 

GT AND 

LT 8 CHAR 

*J5 



*»»F5*******« 

INIT FOR 

BRANCH TABLE 

LOOK UP 

*K5 



*BC * 
* Al* 

BTLOOP 



1. INCR P0INT4 BY 4 TO 
SET VALUE TO 5 OR 6. 
SEE NOTE Kl. 

2. MODIFY INST TSTYPE, 
TO TEST FOR MASK HEX 
05 OR HEX 06. 

3. SET BIT OF JBCSW4, 
IF ON SET OFF, IF 
OFF SET ON. 

*J5 
THE PARAM LENGTH IS 
CHECKED BY COMPARING 
THE VALUE IN REG 
P0INT3. THE SCAN 
ROUTINE HAS SET THIS 
VALUE TO PARAM LENGTH 
MINUS 1 BYTE. 



K5 

THE BRANCH 
ROUTINE IS 
DETERMINE ' 
CONTROL STA 
PROCESSED 
IS MADE, ... 
OF THE ARGU 
IZED AS IN 
1. CLEAR L 
AND MOV 
TO TABL 
SET THE 
P0INT1 
BRANCH 
MINUS 1 



2. 



TABLE LOOKUP 
USED TO 
HE TYPE OF 
TEMENT BEING 
WHEN A FIND 
E FUNCTIONS 
MENT ARE UTIL- 
FIGURE 8. 
LD ARGUMENT 
" NEW ARGUMENT 
-ARGUMT-. 
REGISTER 
EQUAL TO 
TABLE ADDRESS 
BYTES. 
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Chart BC. $JOBCTLA - Phase Vector Table Lookup 
Refer to Chart 04. 



.X. 



*BG-G3,H2 



STL00P X 

*****Ai****** 

* INCREMENT 

* POINTER 

* POINT 1 BY 

* TO POINT T 
*NEXT TBL ENT 



NO .* INPUT * 
...*. FROM SYSRDR 
*AND CANCEL.* 



Dl *. 

.^PROCESS* 

* STATEMENT 

IN SPITE OF 
*. CANCEL 
*. *C2 



.* 



*A2-SEE FIGURE 8 



*B2 
JBCSWO-COMREG 
+56, BITS 2 AND 
A ARE TESTED. 



THE CONDITION 
■ SWITCHES OF THE 
FOUND ARGUMENT 
ARE TESTED. 
SEE FIGURE 8. 
THE INSTR TSTYPE 
HAS BEEN MODIFIED 
IN THE CONTROL 
ROUTINE AT BB-B4. 



TEST JBCSW3- 
COMREG+56, 
BIT 3. 



SUPLOG X 

*****A 3 ********** 

* MOVE BRANCH * 

* TABLE DSPLT * 
D 3 * TO REGISTER * 

* -POINT2- * 

* *A2 * 
***************** 



IS *. NO 
OPERAND .*... 
EXEC .* 



ALLTSWO .*. 

C3 *. 

.* JOB *. 

NO .*ACCOUNTING 

...*. INTERFACE 

*. SUPPORT . 



********* 



* PUT 
♦VARIABLE 

* LABEL II 
********* 



OUT * 

LENGTH* 

NFORM. * 



TABLE A 


ROOT PHASE (A) 


.STMNT . 


ROUTINE . CHART. 


. // . 
. /* . 

* 
.IGNORE. 


SCANR2 . BF . 
CONTROL . BB . 
CONTROL . BB . 
IGNORE . BG . 



EXIT 

PER 

TABLE 



*YES 



X CONTROL 




El *. 

*. 
VALID *. NO 
FORMAT .*.... 

*C2 .* 
. .* 


*E2 
TEST JB0SW3 
C0MREG+59, 
BIT 3. 


*. .* X 
*YES ***** 
*BM * 
* B2* 





*****F2********** 

* * 

* SUPPRESS * 
X* OUTPUT ON * 

* SYSLST * 

* * 
***************** 



***************** 



E3 *. 
.* 1ST *. 
EXEC * 
AFTER JOB 
. CARD .* 
*. .* 



ACCTNOP 

**F3******* 
*SET SWITCH * 

* TO SKIP JOB 
* ACCOUNTING 

* INTERFACE 

* PHASE * 
*********** 



*. .* 
* 
.CONDITIONAL 



* LOG 
ON 
SYSLOG 
*D2 



ACCTIGN2 

**G3******* 
*SET SWITCH * 

* TO SUPPRESS 
* WRITING REC 

* IF EXEC CD 

* BAD * 
*********** 



UNCLOG 

*****H2 ********** 
*LOGOUT BE* 
*_*_*_*_*_*_*.*_* 



ACCTIGN1 .*. 




H3 *. 




* IS 


YES .* 


ROUTINE 


. . .*. 


IN ROOT 


* 


PHASE 



**************** 



SET PHS 

TO PRO 

PHAS 



*****C4** ******** 

* SAVE BEGIN * 

* ADDR. OF ROOT * 

* PHASE-ADDR * 
*OF LOC CONTROL * 

* * 
***************** 



*****D4 ********** 
*MTNCNT BK* 
*_*_*_*_*_*_*_*_* 

* RELEASE * 

* THE * 

* SYSTEM * 
***************** 



****E 4** ******* 

SVC 4 
LOAD REQUIRED 

PHASE 
*************** 



****#P4** ******** 
*MTNCNT BK* 
*_*_*_*_*_*_*_*_* 

* SEIZE * 

* THE * 

* SYSTEM * 
***************** 



*B5 
IF THE CONTROL STATEMENT 
WITH // IN COL 1 AND 2, 
THE CURRENT ARGUMENT IS 
//. CONTROL IS TRANS- 
FERRED TO THE SCANR2 
SUBROUTINE TO GET THE 
NEXT OPERAND. SCANR2 
EXITS BY BRANCHING 
LINKR1 WHICH WAS LOADED 
ON CHART BB-K1 AND 
CONTAINS THE ADDRESS 
OF BB-A4. 



JOB CONTROL 


STATEMENT 


TABLE 


.STMNT . 


PHASE 


.ROUTINE. 


CHART. 


.ACTION . 


J 


.ACTION . 


GO . 


.ALLOC . 


J 


.ALLOC . 


GP . 


.ASSGN . 


D 


.ASSGN . 


CA . 


.CANCEL . 


G 


.CANCEL . 


EE . 


.CATALR . 


J 


.CATAL . 


GN . 


.CLOSE . 


D 


.CLOSE . 


CL . 


.DATE 


J 


.DATE 


GH . 


.DLAB 


K 


.DLAB 


HF . 


.DLBL 


K 


.DLBL 


HE . 


.DVCDN . 


F 


.DVCDN . 


DH . 


.DVCUP . 


F 


.DVCUP . 


DK . 


.ENTRY . 


J 


.ACTION . 


GD . 


.EOJ /e . 


G 


.EOJ 


EC . 


.EXEC 


G 


.EXEC 


EF . 


.EXTENT . 


K 


.EXTNT . 


HJ . 


.HOLD 


J 


.HOLD 


GA . 


.INCLUDE. 


J 


.INCLUDE. 


GD . 


.JOB 


G 


.JOB 


EA . 


.LBLTYP . 


K 


.LBLTYP . 


HA . 


•LISTIO . 


F 


.LISTIO . 


DA . 


.LOG 


J 


.LOG 


GL . 


.MAP 


F 


.MAP 


DK . 


.MTC 


J 


.MTC 


GE . 


.NOLOG . 


J 


.NOLOG . 


GL . 


.OPTION . 


G 


•OPTION . 


EL . 


.PAUSE . 


J 


.PAUSE . 


GL . 


.PHASE . 


J 


•ACTION . 


GP . 


•RELSE . 


J 


.RELSE . 


GA . 


•RESET . 


F 


•RESET . 


DF . 


.ROD 


M 


.ROD 


JH . 


.RSTRT 


K 


.RSTRT . 


HQ . 


.SET 


J 


.SET 


GG . 


.STOP 


J 


.STOP 


GM . 


.TLBL 


K 


.TLBL 


HB . 


.TPLAB 


K 


.TPLAB . 


HA . 


.UCS 


J 


.UCS 


GB . 


.UNA 


F 


.UNA 


DM . 


.UNBATCH 


F 


.DETACH . 


DL . 


.UPSI 


J 


.UPSI 


GK . 


.VOL 


K 


.VOL 


HA . 


.XTENT 


K 


.XTENT . 


HG . 



Jl *. *****J2********** 

* LOG *. *LSTOUT BE* 

ON *. YES *-*-*_*-*-.*_*-*-.* 

SYSLST .* X* LOG STATEMENT * 

*E2 .* * ON SYSLST * 

*. ,* * * 

*. »* ***************** 



J3 

.* IS * 
REOUIRED 
PHASE IN 

. CORE 



*J5 
PHASE N-THE JOB 
ACCOUNTING INTERFACE 
PHASE- IS CALLED BY 
THE JOB, EOJ, AND 
EXEC STATEMENT 
PROCESSORS 



.X. 

X 

**** 

* * 

* A3 * 

* * 
**** 



EXIT 

PER 

TABLE 
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Chart BD. $JOBCTLA - DSKINT Subroutine 
Refer to Chart 04. 



SET PROB PROG 

PIB FLAG TO 

ALLOW SYSRES 

WRITE I/G 



READ SYSTEM 
DIRECTORY 
RECORD 4 

FROM SYSRES 



•MODIFY WARNING 

• MESSAGE 1C70D 

• TO INDICATE 

• SYSLST 



SVC 7 

WAIT FOR I/O 
COMPLETION 



•CHECK AVAILABLE* 
» RECORD COUNT • 
• ON SYSLST • 



»#«»#E ].***•*•*••• 
•RESET DISK ADDR» 

• OF LABEL AREA • 

• WITH VALUE IN • 

• SYSTEMS DIR • 

• COMREG+61 • 



»*.».F1**»*»»«»« 

• SET THE CC 

• OF WRITE AND 

• SEEK/SEARCH 
•DISK ADDRESSES 



Gl ». 

.* DASD *. 

SYSTEM 

FILES 

•SUPPORTED. 




PREVIOUS CHAIN FLAG 
HAS BEEN SAVED AT 
CHKJIB. 

ZERO THE 1ST 3 BYTES. 
MOVE CHAIN FLAG, 
4TH BYTE, FROM 
CURRENT JIB TO 
PREVIOUS JIB. 
MOVE NEXT AVAILABLE 
JIB POINTER FROM FAVP 
TO CURRENT JIB. 
UPDATE FAVP WITH 
CHAIN FLAG FROM 
SAVE AREA. 



NODSYS 

•*«*»E3******** 

• INITIALIZE 

• POINTERS FOR 

• LUB TABLE 

• LOOK UP 

• »G5 



SYSPCH 

ASSIGNED 

*H2 



•CHECK AVAILABLE* 

* RECORD COUNT * 

• ON SYSPCH • 



X 

• *•• 

• A3 



*H2 
SYS UNITS THAT ARE 
ASSIGNED TO A DASD DEVICE 
AT SYS GEN TIME ARE 
UNASSIGNED DURING IPL. 
THEY MUST BE REASSIGNED 
USING JOB CONTROL ASSGN 
STATEMENTS. 



NXTLUB 

#»*»»F3«*»*»«*»« 
•INITIALIZE REG 

• POINTS AND 

• INCREMENT REG 

• POINTl BY 2 

• «G4 



•COMPUTE ADDRESS* 
♦OF NEXT JIB IN • 
• REG, POINT2 • 



E5 ». 

.* DOES • 
THIS JIB 

CONTAIN 
. EXTENTS 



*»«»*F'+#»*»»*»*»» 
•UPDATE PREVIOUS* 

• JIB POINTER, ♦ 

• P0INT3 FROM ♦ 

• CURRENT JIB * 
•POINTER ,POINT2» 



• UNASSIGN THIS ♦ 
» JIB AND PLACE * 
•IT IN FREE LIST* 
» *C4 



NXTJIB .». 

G3 *. 
.* DOES ». 
.• CURRENT •. YES 
•.JIB POINT TO ...... 

». A JIB .• 



H3 •. 
.• HAS ♦. 

• LAST PROG 

LUB BEEN 
•. CHECKED . 



P0INT3 IS LOADED 
FROM POINTl AS 
PREVIOUS JIB POINTER. 
POINTl IS INCRE- 
MENTED BY 2 TO POINT 
TO THE NEXT LUB. 



• G5 
P0INT4 IS ADDRESS OF 
FAVP. WRKRG2 IS 
NUMBER OF PROGRAMMER 
UNITS FROM NICL. 
POINTl IS ADDRESS 
MINUS 2 BYTES OF THE 
1ST PROGRAMMER LUB. 



J3 •. 

.* ZERO «. 
•RECORDS ON 

SYSLST OR 
♦. SYSPCH . 

♦. »J5 .» 



RETURN TO 

CALLING 
SEQUENCE 



##J4»«*»»*« 

* SET PAUSE • 

* SWITCH OFF. * 
.X«JBCSWO, COMREG 

* PLUS 56, • 

• BIT 5 • 



♦ J5 
THIS SWITCH HAS BEEN SET 
TO A NOP BY THE CHKCNT 
SUBROUTINE IF THE RECORD 
COUNT WARNING MESSAGE 
1C70D HAS BEEN ISSUED. 
-NO. OF AVAILABLE RECORD 
FOR THIS FILE IS LESS 
THAN OR EQUAL TO THE RC 
VALUE OF THE DIB.- 



• A5« 
ACTRSP 
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Chart BE. $JOBCTLA - Message Subroutines 
Refer to Chart 04. 



• CN 

• D2 

LOGOUT 



MSGOUT 

•»»«»B2»»**»**»»* 

• SET BITS OFF • 

• IN JBCSW4 • 
...•TO ALLOW OUTPUT* 

• ON SYSLST AND * 

• SYSLOG • 



••A3*»*«»**»» 


•••#A4»«*»»»«*« 




• * 


LSTOUT * 


• CHKCNT * 






************* 




»* * »»»* 












3 • • CN • 






• . * D2» 






#* x *»•• 






.*. 


CHKCNT X 


B3 ». 




.•SYSLST *. 


•COMPUTE NUMBER • 


OUTPUT ». YES 


• OF RECORDS » 


SUPPRESSED 


• AVAILABLE FOR • 




* THIS FILE • 


». . » 


♦ #B5 • 



.♦SYSLOG *. 
• OUTPUT 
SUPPRESSED 



*«D1»»»*»»» 
» SUPRESS • 

• SYSLOG • 
OUTPUT-SET ON 

• BIT 2 IN » 
• JBCSW4 • 



SYSLOG 

EQUAL 

SYSLST 



••C3«»**«»« 
• SUPPRESS • 

♦SYSLST OUTPUT* 
SET BIT 1 ON 

• IN JBCSW4 • 



•»D2»«»^*»« 

• SET CHAIN 

BIT IN CCW 

IF TIME 

LOGGING 



MOVE MESSAGE 

TO PRINTOUT 

AREA 



»*»»»F2*** •»»*••» 

♦ MODIFY SYSLOG • 

♦ CCW BYTE CNT • 
•TO DISPLAY ONLY» 

♦ SIGNIFICANT ♦ 
•CHARACTERS »H4 » 



OUTPUT 
STATEMENT 
ON SYSLOG 



P0INT1 IS DIB 
ADDRESS FOR DESIRED 
SYS UNIT. 

END ADDRESS CC, LESS 
CURRENT ADDRESS CC, 
IS REMAINING CC. 
REMAINING CC, TIMES 
TRACKS/CYLINDER, PLUS 
TRACKS LESS THAN A 
FULL CYLINDER, IS 
REMAINING TRACKS. 
REMAINING TRACKS, 
TIMES RECORD/TRACK, 
PLUS RECORDS ON 
PRESENT TRACK, IS 
REMAINING RECORDS. 



CONVERT TO 
BCD AND 
UNPACK 



REPLACE HIGH 
ORDER ZEROS 
WITH BLANKS 



E4 •. 


••E5******* 


.♦NUMBER •. 


•SET SWITCH • 


AVAILABLE ♦. NO 


» CTRLSW TO 


RECORDS GT 


...X«NOP IN CALLING 


. RC OF .♦ 


• SEQ. 


*. DIB .• 


♦ «G4 • 



• CURRENT 

LINE COUNT 
♦. MINUS 1 . 



****»H1 ♦••****♦•* 
•MTNCNT BK* 

• *" RELEASE " * 

• THE * 

• SYSTEM • 


X 
*»*»H2******* 

• RETURN TO 

• CALLING SEQ 




'• 


YES 




X 
Jl* *♦. 

.•"previous 

• . I/O 

•.COMPLETE 


*****J2******* 
♦MTNCNT 

..X^ SEIZE 

♦ THE 

♦ SYSTEM 



• *«*G3"""»*« 

RESET LINE 

COUNT VALUE 

TO VALUE FROM 

COMREG+78 



• ♦#»»H3«^^^»»^ 

• SET SKIP TO 1 
•FLAG IN BYTE 
» OF PRINT LINE 

♦ -BUFFER LESS 

♦ 1 BYTE- 




»***F4*»»**»»*» ♦ 

• RETURN TO • • 

• CALLING ♦ ♦ 

'•••••HHS:******* * 


MOVE ERROR 

MESSAGE FOR 

1C70D TO 

BUFFER 

• H5 


• 


G4 

THIS SWITCH, IN THE DSKINT 
SUBROUTINE FORCES THE 
PAUSE SWITCH TO BE SET 
OFF AND A CONTROL 
STATEMENT TO BE READ. 


X 

• B2 • 





»#»J3»*###*« 

STORE NEW 

LINE COUNT 

IN 

RLNCNT 



• H4 
REVERSE SCAN THE 
BUFFER AREA UNTIL 
THE FIRST NONBLANK 
CHARACTER IS 
SCANNED. 



OUTPUT 
STATEMENT 
ON SYSLST 



• H5 
WARNING MESSAGE 
1C70D 00000 
RECORDS REMAINING 
ON SYSPCH/SYSLST. 



70 DOS IPL and Job Control 



Chart BF. $JOBCTLA - Operand Scan Subroutines 
Refer to Chart 04. 



»A1***»» 
SCANR2 



*A2*»»** 
SCANR1 



*A3»*«»* 
SCANR3 



• INIT REGISTERS 

• POINT1 AND 2 

* FOR CURRENT 

* SCAN 



SCANR3 

«»»#*B3****»***» 
•INIT REGISTERS 
» POINT1 AND 2 

* FOR CURRENT 

* SCAN 

* »B4 



SCANR1 

**«*»C2********* 

* INIT PARAM 
♦LENGTH TO Z£RO 

* AND STOP CHAR 

* TO A BLANK 

* »C4 



• ZERO PARAM 
•LENGTH COUNTER 

• -POINT3- 



• B4 
THE POINTER TO THE FIRST COL 
TO BE SCANNED AND NUMBER OF 
COL REMAINING ARE STORED IN P0INT1 
AND 2 RESPECTIVELY FROM SAVE 
AREA TMPAR1. 



PARAM LENGTH IS MAINTAINED IN 
REGISTER POINT3, 
STOP CHAR IS MAINTAINED IN 
CORE LOCATION SCNSTP. 



t#«»E2*«*»»»»« 

INCR POINT1 

FOR THE NEXT 

CHAR 



SCNRL2 

*»*»*E3«»***»*»« 

• STORE CURRENT 
» CHAR IN 

• SCNSTP 



F3 *. 
.• IS *. 

THIS CHAR 
A COMMA 



x.x. 



NDSCAN 

»*#»#G2*****«» 

• INIT FOR 

• NEXT SCAN 

• »G4 



•SET INFORMATION* 

• FOR CALLING • 

• SEQUENCE • 



H3 ». 
.• IS •. 

THIS CHAR 
AN EQUAL 
. SIGN 



• G4 
1. COMPUTE POINTER TO NEXT CHAR. 
2. COMPUTE NUMBER OF COLUMNS 

LEFT TO BE SCANNED. 
3. SAVE IN SAVE AREA, TMPAR1 AND 

TMPAR1 PLUS 4 RESPECTIVELY. 



• H4 
l.THE LENGTH OF THE PARAMETER 

MINUS 1 BYTE IS IN REGISTER 

P0INT3. 
2. UPDATE THE OPERAND NUMBER 

IN OPNUMH. 
3. TEST THE SCAN STOP CHARACTER 

AND SET THE CONDITION CODE. 

0, EQUAL, IS A COMMA 

1, LOW, IS A BLANK 

2, HIGH, IS AN EQUALS SIGN 



»»*J2*»»»»«»» 

RETURN TO 

CALLING SEQ 



*#»*#J3*»»###**« 

• INCR PARAM 
•LENGTH COUNTER, 

* P0INT3, BY 1 



YES 


» 


END 


*. 


NO 




* 


OF CARD 


•• 




X 




*. . • 






»•» 




* 
















G2 • 








• 
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Chart BG. $JOBCTLA - Miscellaneous Subroutines 
Refer to Chart 04 • 



****Al********* 

RDSTMT * 
* 
*************** 



**** 

* * 

* Bl * 



* , CLEAR I/O * 

* AREA, BUFFER, * 

* TO BLANKS *. 

* * 

***************** 



RLINDT X 

**C<^******* 

*SET SWITCH * 
*-JBCSW4 BITS 
* 1 AND 2 OFF- 
* *C2 
* * 

*********** 



Dl *. 

.* IS *. 

INPUT 

ON SYSRDR 

*B2 

*. .* 

*. i* 



*B2 
JBCSWO 
COMREG+56 
BIT 2 



♦ C2 
ALLOW OUTPUT 
ON SYSLST 
AND SYSLOG. 



RDRIN 

*****D2 ********** 
*CHKASG BK* 
*i-*_ *_*_*_ *_*..*_* 

...X* CHECK SYSRDR * 

* ASSIGNMENT * 

* * 
***************** 



IGNORE 

**B3*** 

* SET JOB * 
*CONTROL INPUT* 

* SW TO SYSRDR * 
* *B2 * 

* * 
*********** 



***** 
*BB * 
* B4* 



****A4** ******* 

* LOGCHK * 

* * 
*************** 



LOGCHK X 

*****B4** ******** 

* SET LOG ID * 
*-Fl, F2 OR BG- * 

* IN PIB TBL. * 

* *H5 * 

* * 
***************** 



*****C4 ********** 

* RESET SYSLOG * 
♦BITS IN COMREG * 

* +56, BITS 6 * 

* AND 7 SET TO * 



********** 



c****** 



*****D4********** 
*CHKASG BK* 
*-*-*-*-*-*-*-*-* 

* CHECK SYSLOG * 

* ASSIGNMENT * 

* * 
***************** 



* A5 * 

* * 
**** 



IS 

SYSLST 

.ASSIGNED 



C5 *. 

.*SYSLOG *. 

.*AND SYSLST 

EO SAME 

*. DEVICE . 



**05******* 
*SET SYSLOG * 

* EO SYSLST 

BIT ON- 

* COMREG + 

* 56 BIT 7 * 
*********** 



El *. 

.* IS *. 
* SYSLOG *. 

CONSOLE PRTR. 
*. KEYBD .* 



**F1******* 

* SUPPRESS * 
OUTPUT ON 

SYSLOG 
*F3 

* * 
*********** 



****G1 *********** 
EXCPRG BH 
**,*_*_*^*_*_*_** 

REAQ STATEMENT 
* FROM * 
SYSLOG 
***************** 



.♦ IS 

SYSRDR 
♦.ASSIGNED 



*****F2********** 

* GET * 

* ADDRESS OF * 

* EOJ VECTOR * 

* TABLE ENTRY * 

* * 
***************** 



IS 
SYSIN ON 
i DISK 



HI ♦ . 






H2 * 


.* UNIT *. 






.* 


** EXCEPTION *. YES 




.* IS 


*. EOF ON .*. 






*. EOF 


*. SYSLOG .♦ 






*. POSTED 


*. .* 






♦ . 


*. .* 


X 




*. ;* 


*N0 


*♦♦* 


*YE 




* 








* Bl 


* 


. 




* 


>* 


X 

***** 
*BC * 


X 






* A3* 


***** j i ********** 






* * 


♦TRANSLATE INPUT* 






♦ 


* AREA, BUFFER, * 

* TO CONVERT * 






SUPLOG 


* LOWER CASE * 








♦ALPHA TO UPPER * 








***************** 









*F3 
J0BCSW4 
BIT 2 ON 



INDWR .*. 

G3 ♦. 
.♦ EOJ *. 
.* POSTED IN 
...X*. SYSIN PIB 



**H3******* 

* ♦ 
SET PUB 

EOJ FLAG 
OFF 

* * 
*********** 



NO .♦ IS 
...*. SYSLOG 
*. ASSIGNED 



.* IS *. 
.* SYSLOG * 
♦.CONSOLE PRTR 
*. KEYBD .* 



***** 

*BC * 

* A3* 

* * 



****K i ********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 



NOEOJ X 

***** j 3** ******** 

♦EXCPRG BH* 
*_*_*_*_*_*_*_*_* 

* READ * 

* STATEMENT ♦ 

* FROM SYSRDR * 
***************** 



****K3********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 



* CLEAR LOG * 
*ID IN PIB TABLE* 

* *H5 * 

* * 
***************** 



**H4******* 
*SET SYSLOG * 

* EQ PRINTER 

BIT ON 

* COMREG+56 

* BIT 6 * 
*********** 



*****j4********** 

* * 

* SAVE SYSLOG * 

* PUB POINTER * 

* IN REGISTER ♦ 

* * 
***************** 



****Q5********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 



*H5 
GET PROPER 
PIB BY ADDING 
PIK-PROGRAM 
INTERRUPT KEY- 
TO PIB TABLE 
ADDR. 
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Chart BH. $JOBCTLA - EXCP Subroutines 
Refer to Chart 4. 



(Part 1 of 2) 



«*A1» «*•»•*» 
EXCPRG 



REGISTERS WRKRG3 
AND WRKRG4 ARE 
SAVED IN I0RGSA. 
THE LINK REGISTER, 
LINKR1, IS SAVED 
IN LINKSA. 



* ENABLE MULTI- 

• PROG AND SET 
♦SYS MASK X'FF 



•INITIALIZE DFB 

• DEVICE TYPE 

• AND FLAG BYTE 



»**F1**».*»*» 

COMPUTE LUB 

POINTER IN 

WRKRG3 

*G2 



♦ BJ * 

* Al* 

EXCECP 



DEVICE TYPE, DFBDVC, DFB 
PLUS 22 EQUALS X'FO'. 
TURN OFF BITS 0, 1, AND 
2 IN FLAG BYTE, DFBFLG, 
DFG PLUS 23. 



.MUST CCB». 

* IN DFB BE * 

INITIALIZED 



••.♦•C3« 

* MOVE THE CCW 
♦ADDRESS TO THE 

♦ CCB. -DFB 

* PLUS 8, 

♦ DFBCBA- 



CHECK 

DEVICE 

TYPE 



E3***»»*»»* 

• MOVE THE DISK 

• I/O CCW CHAIN 
♦ADDRESS TO THE 
•CCB. -DFB PLUS 

• 8, DFBCBA- 



♦ B4 
IF THE FLAG BYTE, 
DFB PLUS 17, BIT 
IS A I THE CCB 
HAS ALREADY 
BEEN INITIALIZED 



FLIP-FLOP 
BITS AND 2 
IN THE DFBFLG 



INIT SEARCH 

ADDRESS AND 

CURR ADDRESS 



RESTORE 

WRKRG3 

FROM IORGSA 



••D5*****»* 

SET SWITCH ON 

• TO INDICATE ♦ 

♦NON UNIT RECORD^ 

♦DEVICE-DFBFLG* 

BIT2- 



«##E4^ 

RESET OPEN 

SWITCHES •■ 

DTFPH 

TABLE 



IN 



SET CHAIN 

BIT ON IN 

5TH CCW 



CHECK 

ASSIGNMENT 

FOR THIS FILE 



DFB PLUS 6, DFBCBL, 
EQUALS THE SYMBOLIC UNIT 
ADDRESS. WHEN DOUBLED, 
THIS VALUE IS THE LUB 
POINTER FOR THE 
SYMBOLIC UNIT. SYSRES 



TEST 

LOGICAL 

UNIT 



♦ FETCH ♦ 

♦ SSBOPEN ♦ 
OPEN IJSYSLN* 

♦ -SYSLNK- » 



«**G4^«»"» 

INIT DFI 

TABLE FROM 

THE DTFPH, 

IJSYSLN 

♦ K5 



ASA * 
SUPPORTED 
. ON THIS .♦ 
♦DEVICE. • 



MOVE THE ASA 
CCW ADDRESS 
TO THE CCB 

-DFB PLUS 8, 
DFBCBA- 



.♦ IS ♦. 

THIS FILE 
ASSIGNED 



.RESTORE DFB 

ADDRESS IN 

WRKRG3 FROM 

IORGSA 



•••♦Kl ♦♦♦♦♦•♦♦ 
SET DEVICE 

TYPE AND 

CHANNEL AND 

UNIT INTO DFB 

FROM PUB »K2 



SET LIOCS 

CODE IN DTFPH 

FOR 2314 



H3 ♦. 

SYSRDR 

'♦NO 



♦ SET SYSRDR 

♦ DIB INDEX 

♦ IN WRKRG4 TO 
♦POINT TO SYSIN 



♦ SET THE CHAIN 
♦BIT OFF IN THE 

♦ ASA CCW 



♦K2 

1. DEVICE TYPE 
MOVED TO DFBDVC, 
DFB PLUS 22. 

2. CHANNEL AND 
UNIT MOVED TO 
DFBCUU, DFB PLUS 
20 AND 21. 



COMPUTE DIB 

ENTRY ADDR 

IN WRKRG4 



♦ ♦♦♦^♦♦•♦•♦♦^ 

INIT DFI 

TABLE FROM 

DIB 

-1ST 19 BYTES- 



SYSIN IS DIBADO PLUS 24 
SYSPCH IS DIBADD PLUS 48 
SYSLST IS DIBADD PLUS 72 



♦ K4 
CURR ADDR. 
KEY AND DATA LNG. 
END ADDR. 
UPPER LIMIT. 
LOWER LIMIT. 



♦ K4 



*J5 
BIT IF ON INDICATES 
THE FILE IS OPEN. 
BIT 2 IF ON INDICATES 
THE FILE IS NOT 
UNIT RECORD. 



♦ K5 
SET CURR ADDR 
SET WR SRCH ADDR 
SET UPPER LIMIT 
SET LOWER HEAD LIMIT 
SET UPPER HEAD LIMIT 
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Chart BJ. $JOBCTLA - EXCP Subroutines (Part 2 of 2) 
Refer to Chart 04. 



BH-D1.C4. 

X 

EXCECP .♦ 



NO .* IS * 

DEVICE 

•.TYPE DISK.« 



INIT WRKRG4 

IS POINTER 

TO OFI TABLE 



EXCPGO X 

»*»»#A2»»*«****»* 
« SET UNIT » 
» EXCEPTION SW * 
•OFF IN DFB FLAG* 
« -DFBFLG » 



B2 *. 

.* UNIT *. 

EXCEPTION 

ON THIS 

I/O 



♦ UPPER 
EXTENT 
♦.EXCEEDED 



***Dl«*****«* 

UPDATE DISK 

SEARCH ADDR 

AND CURR 

ADDR 

-CCHHR- 



« RESTORE DFB 

♦ ADDR IN WRKRG3 

* FROM IORGSA 



.« IS ♦ . 

• DEV U/R 

AND IS ASA 
•.SUPPORTED. 



* SET SPACE 1 

• LINE COMMAND 
♦IN CCWi DFBCCW 



EXECUTE 

CARRIAGE 

CONTROL 



C2 *. 
.* ALSO •. 

EOF ON 

SYSRDR OR 

. SYSIPT . 



WAIT 

FOR DEVICE 

END 


* 


. NO 


*"«YES 






X 

#«C3»******* 




POST WAIT 

FOR DEVICE 

END 




♦ : 


ix... '. 



EOFPRC 

* SET UNIT * 
♦EXCEPTION SW ON* 

* IN DFB FLAG * 

* -DFBFLG- ♦ 



SETWRT 

♦ SET UP WRITE 

* COMMAND 

• IN CCW, 

• DFBCCW 



ISSUE 

I/O 

COMMAND 



EXPEXT 

»*#*«E3* 
•MTNCNT 



»tF2******* 

SAVE THE 

TIMER IN 

SAVE AREA 

TIME 



ISSUE 

I/O 

COMMAND 



••G3*«**#»* 
RETURN TO 

CALLING 
SEQUENCE 



H3 ♦. 
.* WAS *. 

.♦ SPACE 1 * 
.LINE COMMAND 
♦.SPECIFIED.* 
*. *J5 .♦ 



• ••♦^♦♦•••♦♦^ 

SVC 7 

WAIT FOR I/O 

COMPLETION 



»».*K2*****^»*- 

SVC 7 

WAIT FOR I/O 

COMPLETION 



♦ NO 



SET SKIP TO 1 
COMMAND IN 
CCW, DFBCCW 



MOVE A BLANK 

TO ASAIND, 

BUFFER-1 



♦ ATTN. 
ROUTINE SW 

♦ . ON 



* SET EOF 

•CHAN. SCHED. 

* FLAG BIT IN 

• PUB TABLE 



*****C<t********** 


• « 


* 


**C5 ********** 


♦MTNCNT 


BK* 


• 




• 








RESET • 


• SEIZE 








DFB • 


• SYSTEM 


# 


» 




POINTER ♦ 


• 


♦ 


• 




* 


X 




















• BL ♦ 








X 


♦ Bl» 


















D5 ♦. 












ATNCUU 




NO . 


* 


DEVICE ♦. 
A DISK .♦ 



E4 *. 

SYSIPT 

"'♦YES 



EITHER 

TAPE OR 

DISK 



SHIFT BUFFER 

TO LOSE 

ASA CODE 



TURN OFF 
SW. DEVICE 
BIT IN PUB 



SET EOJ 
SWITCH 
IN PIB 



EOF 
'♦NO 



EOJ 
''♦YES 



EXCEOF 

♦ SET UNIT * 

♦ EXCEPTION 

♦ BIT ON IN DFB 

♦ AND POST 

♦ EOF * 



• J5 
IF ASAIND, BUFFER MINUS 
1-BYTE, IS BLANK THE 
SPACE 1 LINE COMMAND 
WAS SPECIFIED. 



• K5 
BIT 3 OF THE DFB 
FLAG, DFBFLG, IS 
TESTED. 
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Chart BK. $JOBCTLA - Miscellaneous Subroutines 
Refer to Chart 04. 



INITIALIZE 

REGISTER 

»B2 



***»A3 

CHKASG 



CHKASG 

*»»»»B 3»* »•»#»»» 

* COMPUTE 

* LUB ADDRESS 

* FOR THIS UNIT 

* IN WRKRG3 

* #BA 



• A5 
LABEL CHKASG3 USED 
IN JJOBCTLD. THE 
ENTRY POINT IN 
SJOBCTLA IS CHKASG+4 
(IN THE BRANCH 
VECTOR TABLE). 



X 
•»C1»«**« 
SVC22 
*C2 



RETURN TO 

CALLING 

SEQ 



• C2 

TO SETTING SYS MASK, 

EITHER SEIZES OR RELEASES 

THE SYSTEM. 

TO SEIZE SYS IS TO DISABLE 

MULTI-PROGRAMMING. 

TO RELEASE SYS IS TO 

ENABLE MULTI-PROGRAMMING. 



SAVE 

LUB 

DISPLACEMENT 



IS 

THIS 

SYSCLB 



*B4 
THE LUB TABLE DISPLACEMENT 
FOR THE UNIT TO BE CHECKED 
IS SUPPLIED IN WRKRG3. THE 
LUB ADDRESS IS OBTAINED BY 
ADDING THE LUB TABLE 
ADDRESS TO WRKRG3. 



*C4 
IN BYTE OF THE LUB, X'FE' INDICATES 
•IGNORE' AND X'FF' INDICATES LUB IS 
UNASSIGNED. IN EITHER CASE THE 
CONDITION CODE IS SET TO 1. 



BYTE OF THE LUB 
CONTAINS THE PUB POINTER. 
THE PUB POINTER 
MULTIPLIED BY 8 EQUALS 
THE PUB DISPLACEMENT. 
THE PUB TABLE ADDRESS 
PLUS THE DISPLACEMENT 
EQUALS THE PUB ADDRESS 
FOR THIS UNIT. 



.» #. YES 

.ASYNCHRONOUS .*... 
». PROCESS .* 



LOAD LUB 
IN FRONT 

OF BG 

PIBX 



E3 «. 
.♦ IS ». 

•THE LOGICAL* 

UNIT 

♦.ASSIGNED .* 

*. *C4 .* 

*'*YES 



COMPUTE PUB 

ADDRESS FOR 

THIS UNIT IN 

WRKRG4 
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Chart BL. $JOBCTLA - Error Subroutines (Part 1 of 2) 
Refer to Chart 04. 



•A3 
CK-F5 
FG-G1 
GU-F1 
JH-B2 



S£T UNIT 
EXCEPTION 
SWITCH OFF 
IN DFB FLAG 
-DFBFLG- 



X 


OERRTN X 


»B2****»*«**« 


♦»#*»B3**«»«»«* 


POINT TO » 


* CLEAR BUFFER 


DESIRED » 


•AREA TO BLANKS 


MESSAGE • 


• MOVE DESIRED 


1C10A » 


• MESSAGE TO 


*B4 * 


* BUFFER 



*B4 

! MESSAGE** 'DESCRIPTION ." 

! iC00A*****ATTN**CUU * 

!ici6r****PLtAse*AsriGfV(sHRDRJsHipr,sYSLNK)! 

*ii*.80D*****END* OF* EXTENT *6n* ( SYSRDR * SYS IPT ***** * 
. SYSPCH, SYSLST, SYSLNK) 

" * 150 i**"!* JOB* XXXXXXXX* CANCELED "DUE* TO '. 

. END OF EXTENSION ON SYSLNK 



IS 

UNIT 

SYSLNK 



• CLEAR OUTPUT « 

* BUFFER AND • 

* INITIALIZE • 

• MESSAGE • 
•1I50I *B4* 



DISPLAY 
MSG ON 
SYSLOG 



• IS 
DEVICE 
TYPE 
DISK 



♦*»«»E2»***»**»*» 
♦CONVERT CHANNEL* 

* AND UNIT TO » 

* EBCDIC FOR • 

* PRINTING • 



••#E3***»»*» 

INITIALIZE 

ERROR 

MESSAGE 

FOR SYSRDR 



ATNCUU1 

*»#.F1* 
MSGOUT 



DISPLAY 

MESSAGE ON 

SYSLOG 



DISPLAY 

MESSAGE ON 

SYSLST 



SET CANCEL 

INDICATOR 

-COMREG+56, 

BIT 4- 



RETURN TO 

CALLING 
SEQUENCE 



MOVE CHANNEL 

AND UNIT TO 

ATTENTION 

MESSAGE 



POINT TO 

DESIRED MSG 

1COOA 



IS 
UNIT 
SYSRDR 



INITIALIZE 

ERROR 

MESSAGE 

FOR SYSIPT 



JN-C1,C2,C3,J1,J2 



IS 


*. YES 


UNIT 


.*..X 


SYSIPT 


.« 



IS 

UNIT 

SYSLST 



INITIALIZE 

ERROR 

MESSAGE 

FOR SYSLNK 



**»J3*****«» 

INITIALIZE 

ERROR 

MESSAGE 

FOR SYSLST 



*#J4»»»»*» 

POINT TO 

DESIRED 

MESSAGE 

-1C80D- 

• B4 



«»»«H5»«*»**** 

CLEAR 

OUTPUT 

BUFFER AND 

SET UP ERROR 

MESSAGE 



DISPLAY 
MSG ON 
SYSLOG 



**«*K5***»****» 
*PUT SYSTEM INTO* 

* A HARD WAIT * 

* STATE * 



76 DOS IPL and Job Control 



Chart BM. $JOBCTLA - Error Subroutines (Part 2 of 2) 
Refer to Chart 04. 



• IS 

JOB BEING 
•.CANCELED . 



POINT TO 

DESIRED 

MESSAGE 

1S00A 



ERRCNL 
ERRRTN 

LOGOUT 



• El 
CY-K5 
DM-K5 

FG-C1,C3,C4,C5,J2 
GU-C1,C2,C3,C4,C5, 

F5.G2.G3 
HS-C1,C3,C4,D2 
JH-H5 



LOG STMNT 

ON 

SYSLOG 



LOG STMNT 

ON 

SYSLST 



ERRRTN2 

»**»*F2»*»***»** 
« CL-EAR BUFFER 
•AREA TO BLANKS 

• MOVE DESIRED 

• MESSAGE TO 
» BUFFER »J2 



RESET AUTO 
CANCEL 
SWITCH 



NO .* INPUT 

X..«. FROM 

•. SYSRDR 



• LOG 

ON SYSLOG 
••SPECIFIED. 



NO .« JOB 
...*. IN 

•.PROGRESS 



•»«»»G2»«*»»»**«* 


*»»»G3 •*•»•*»*••• 


••#*»G4«»****»»*» 


•INSERT OPERAND • 


MSGOUT BE 


•MSGOUT BE« 


•POSITION NUMBER* 






• INTO BUFFER • 


DISPLAY 


• DISPLAY MSG • 


* PLUS 3 FROM ■• 


• MSG ON • 


• ON SYSLOG • 


• OPNUMH *K2 * 


SYSLOG 


•*••**•«*»•*•»•*• 



REGISTER P0INT1 
CONTAINS ADDRESS 
OF DESIRED 
MESSAGE. 



*K2 
IF NUMBER 
EXCEEDS 9 
CONVERT TO 
HEX CHARACTER. 



#»»«H3»»*«*»*«»*« 


»»»«H4 ♦•••»♦•••• 


LSTOUT 


BE 


LSTOUT BE 








DISPLAY 




LOG MSG ON 


• MSG ON 




• SYSLST • 


SYSLST 




*•»••»•* *** 


X 

♦ BB * 






• A5* 




X 








• 




• CLEAR BUFFER * 


ACTRSP 




• AND PUT • 

• JOB NAME IN • 

• CANCEL MSG • 



»«#»K4»»»*»*«»« 
MOVE JOB NAME 
TO MSG, MOVE 
MSG 1I70I TO 
OUTPUT BUFFER 



• A5 
CA-A2,D1,D2,H1,H3 
CC-C2.E2 
CD-D2,D3,E3 f H4 
CL^C1,CA,H3,K1 
CP-B2,B3,E3 
CQ-E4 
CW-B1 
DA-E1 
DF-E1 
DH-D1 
DK-B3,D1 
DL-C1,D1,E1 
DM-C1,C2,F1,H1, J2 
DN-D3 
DP-B4 

EA-Cl,01,EL 
EF-G1.J1 
E1-C2.G1 
EN-B3 

EP-A2, A3,C1,E1,E4,G1 
GA-C3,E3,E4,F3,K3 
GB-C1,F2,G2 
GC-D2,E4,F4 
GE~A4,B2,D1,E1,F1 
GF-A3,GL,H1 



C3.C4, 
G1.G4, 
C2,D2, 
E5.F2, 



-B1.B5, 
-B2,D1, 
-B1.B2, 
-C5.D4, 
-C1.D4, 
-E4,F4, 
-D3.E3, 
-D3.E3, 

H4,H5, 
-D4 
-C2,C5, 

H1,K4 
-B1,C2, 
-B2,J2, 
-F4 t G5, 
-D3,F3, 
-C1,C2, 

D3.H1 
-C1,C2, 
-D3.E3 



iE4 

E4.E5.F4 

E1.J1.K1 

B4.E2 

D5,E5 

D5,61,G3iJl 

H3.H4 

G4 



D2,E1,E3, 

D2.G1 

F3 

J2 

F4 

C3,D1,D2, 

D2,J2,K2 
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Chart BN. $JOBCTLA - Relocation Subroutines 
Refer to Chart 04. 



#*A1*»»«* 
RELJBC 



RELJBC 

*»#*»B1 »»»*»*»»# 
»PICK UP NO. OF 
« ENTRIES IN 
« RELOCATION 
» ADCON TABLE 
* IN A REG »A5 



•»*»A3»»«*« 
EXTRLC 



*A5 
EACH ENTRY 
CONSISTS OF A 
PAIR OF -S- 
TYPE ADCONS. 



EXTRLC 

••♦#»B3*»*«*»*» 

• PUT ADDRESS 

• OF EXTERNAL 
» SYMBOL TO BE 
» RESOLVED IN 

• A REG. 



EXTR-TN 



* PUT TABLE * 
» ADDRESS IN * 

* A REG. « 
« POINT3 * 


• RETURN TO » 

• CALLING SEQ »X.. 


*#»»#C3*«*****«*» 
•EXTRTN BN» 

* RELOCATE • 

* THE • 

* ADCON • 


I'x 

SELRLD X 

»«***DL********** 

* INCREMENT * 

* BY 4 TO * 
» NEXT TBL * 

* ENTRY * 


X 

«#«*#D3*««*»*»**» 
•MOVE RELOCATED » 

• SYMBOL • 

• BACK TO ITS • 
» ORIGINAL « 

• ADDRESS • 


PTR I 
ADR X 

• PUT THE VALUE * 

• OF THE FIRST * 
•ADCON INTO LOC • 

• ADDR OF THE ♦ 

• SECOND ADCON • 

X 

Fl" *•. 

.•** END *"•. NO 
». OF .*... 

». . TABLE .» 


X 

E3**"». 

YES .»' ALL *». 
•. SYMBOLS .* 

•.RESOLVED .* 






**NO 

X 
♦•»»»F3«««»*««««» 

* GET NEXT • 

♦ SYMBOL » 



CLEAR AND 

MOVE ADCON 

TO WORK AREA 



ADD 

RELOCATION 

FACTOR 

TO ADCON 



#»»E4»»»»**«« 

RETURN TO 

CALLING SEQ 



**mGl******** 

RETURN TO 

CALLING SEQ 
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Chart CA. $JOBCTLD - ASSGN Statement Processor 
Refer to Chart 05. 



(Part 1 of 10) 



ASSGN X 
*INITL 



****B1********* 

LOAD P0INT1 

AS BRANCH REG 

TO THE ERROR 

ROUTINE 

NVSERR 



♦ A3 
IT IS INVALID TO ASSIGN 
SYSLOG WHEN A FOREGROUND 
PROGRAM IS LOADED. THE 
FLAG BYTES (BIT 0) OF 
FG1 ANp FG2 PIBS ARE 
TESTED. 



ASSGNR 
YES .•" 



LOAD PUB 
ADDRESS FOR 
THIS DEVICE 

IN WRKRG3 



INITIALIZE 

DTF TO X'OO' 

FOR 2311 

(IJSYSIN, 

IJSYSCL) 





X 




♦ CY 




♦ BL 












ILUS 


X 








♦SCANR2 BF» 








• POINTS TO 1ST * 




» OPERAND * 




» SYSXXX * 





«#*C3««*»»**» 

SET ASSGNV2 

TO ALLOW 

SYSLNK IN 

FOREGROUND 



C4 ». 




»*»##C5*** »»*♦*»« 






♦ MOVE THE * 


DEVICE ♦ . 


NO 


♦ DEVICE MODE * 


2314 




« FROM THE PUB * 






•TO THE LOCATION* 






♦ MODE * 


«. .» 







NO .* DID A ♦ . 


.♦ ASSGN 


...♦. COMMA END .♦ 


♦ . FOR 


*. SCAN .♦ 


♦. SYSCLB 






X ». .* 




#*♦♦ *YES 


♦ NO 


BM * 




C2« 






♦ E2 ♦... 






VSERR 


*•♦» X 


X 




»#«»»E1«*»*«#«»»# 


E2 ♦. 


♦SYSXXX CW* 






.♦ FORE- 


♦CHECK XXX, GET ♦ 


♦. GROUND 


♦ SYMBOLIC UNIT * 


♦.PARTITION 


♦ ADDRESS * 





F2 ♦. 

.♦ VALID ♦ 
ASSIGN-. 
MENT FOR 
.Fl OR F2 



••*»* »CL ♦ 

♦CY ♦ ♦ C5^ 
« Bl» « ♦ 



E3 ♦. 

♦ FG1 
OR FG2 
LOADED 

♦ A3 



ATTN 
ROUTINE 
ACTIVE 



INITIALIZE 

DTF TO X'Ol' 

FOR 2314 

(IJSYSIN, 

IJSYSCL) 



IS 
DEVICE 

DOWN 



INITIALIZE 

DEVICE TYPE 

TO X'FO' 

IN DEVTYP 



ASSGN4 

»»*»#G3^ 
♦SCANR3 



POINT TO 2ND 

OPERAND, 

DEVADDR 



♦ SYSPCH, 

SYSLST, OR 
*. SYSOUT . 



.♦. 










.♦. 








.♦. 


^SSGNTS .♦. 




HI ♦. 








H2 ♦. 






H3 ♦. 


H4 ♦. 




♦ TEMP ♦ 














.♦ DID ♦. 






ASSIGN- 


* 


YES 




♦ IS ♦ 


. NO 




.♦ AN EQUAL ♦. YES 


.♦ IS DEVICE ♦. NO 




MENT FOR 




*. . . . 




UNIT 






♦. SIGN END ...... 


♦. A TAPE 




SYSREC 








♦. SYSLOG .♦ 








♦. SCAN .* 
































X 












♦ . .♦ X 






♦ NO 








♦ YES 








♦NO #♦»«« 


♦ YES 




; 




♦ BM ♦ 

♦ C2^ 




; 








♦ BM ♦ 

♦ C2» 






; 




* * 












'. *♦* 






X 




NVSERR 




X 








X NVSERR 


X 


















ASSGN1 .♦. 




♦ J5 


ji ♦. 








J2* '♦. 








J3 ♦. 


J4 ♦. 


1. 


♦ « 








• ♦ ♦. 










.♦DEVICE ♦. 




COMM 




NO 




♦ MULTI- ♦ 


. NO ) 






.♦ IS ♦. NO 


ITES .♦ FILE ♦. 




REG EXT 








PROGRAMMING 








♦. OPERAND .*.... 


PROTECTED .♦ 


2. 


AVAILABLE 










♦. SUPPORT .♦ 








♦. X'CUU' .♦ 


♦. ♦KS .♦ 




























♦ • •♦ 












X 




♦ . .♦ X 


X ♦. .♦ 


3. 


♦ YES 










♦ YES 


• *«* 


♦YES ♦♦♦♦♦ 


**«** #N0 




















♦ CC * 


♦ CY ♦ 
















♦ G3 




♦ B2^ 


♦ B4^ .X.. 


















♦ 




















»#»» 




♦ IVDS . 




X 
















ASSGNB3 














X 






X 


\SSGNNT X 


♦ K5 


Kl* "♦. 








••••»K2******** 






♦•♦♦#K3^ ♦♦♦♦♦♦♦♦♦ 


• ••••^♦♦♦♦♦♦♦♦♦* 


1. 


♦ • 








• 




» 




♦TXCUU CP^ 


♦ASSGNP CP* 




SDR 


♦ • 


NO 




* 


LOAD WRKRG4 










2. 


COM REG 




♦ . .. 






AS POINTER 






♦ GET DEVICE ♦ 


♦CHECK ASSGN OF * 




AVAILABLE 










TO PIB TABLE 


♦ 




♦TYPE, PUB ADDR ♦ 
♦ AND PUB PTR ♦ 


♦SYSRLB, SYSSLB,^ 
♦ OR SYSCLB ♦ 








) 


I 


* 




»# 




3. 



PICK UP MASK 

FOR OWNERSHIP 

TEST 



.* PUB ♦. 

.♦ OWNED BY 
♦.ANOTHER PAR- 
♦. TITION . 



G5 



ASSGN5^^ 

ASSGN5A X 

♦ »»»*G5^*^^*^ 

♦ INITIALIZE 

♦ FOR CROSS 

♦ ASSIGNMENT 

♦ TABLE LOOKUP 

♦ ♦JS 



THE DEVICE TYPE ZONE 
IS MOVED TO THE TABLE 
LOCATION ENOXTAB. 
MOVE THE LOGICAL UNIT 
TYPE TO COMXAS FROM 
NEWTYP. 

LOAD WRKRG4 AS POINTER 
TO CROSS ASSIGNMENT 
TABLE LESS 5 BYTES 
(XATABLE-5). 



NAME LUB FOR THIS 
DEVICE TO SYSUSE LUB. 
SENSE I/O TO CHECK 
THE FILE PROTECTION 
ON (EXCPROG). 
UNASSIGN THE SYSUSE 
LUB. 
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Chart CB. $JOBCTLD - ASSGN Statement Processor (Part 2 of 10) 
Refer to Chart 05. 



* INCR WRKRG4 BY 

* 5 BYTES TO 

* POINT TO NEXT 

* TABLE ENTRY 



CI *. 
.* UNIT *. 
» EQUAL 

THIS TABLE 

*. ENTRY . 

». *F1 .« 



• NO 



.* ACTUAL 
.DEVICE TYPE, 
*. DEVTYP, . 
». ODD .* 



ASSGN8 


ASSGN10 .*. 


»*«»#A3**«******* 


A4 *. 


• SAVE CROSS * 


.♦ PROG 


•ASSIGNMENT MASK* 


.• LUB SCAN 


..X* IN TABXAS * 


». ONLY. 


* »G1 « 


♦.-PROGSW- 



*»B3*»«**«« 

SET THE SWITCH 

•PROGSW, ON TO* 

•INDICATE - SCAN* 

* ONLY PROG. * 

* LUBS * 



C2 *. 


*#*##C3********** 


.* DOES *. 


* LOAD REGISTER • 


UNIT EQUAL *. NO 


• POINT1 WITH A * 


FIRST TABLE .*....X 


* 1 TO INDICATE * 


. ENTRY .* 


* PROGRAMMER * 




• CLASS • 


*. . • 





ASSGN101 

»»»»«D3* 
•GETLAN 



COMPUTE LUB 

ADDR AND NO. 

IN CLASS 



ASSGN12 

*»B4****«*» 

SET THE SW.t* 

PROGSW, OFF TO* 

•INDICATE - SCAN* 

* ONLY SYSTEM ♦ 

* LUBS • 



»*»«C4********** 

SET REGISTER * 

P0INT1 TO * 

TO INDICATE * 

SYSTEM * 

CLASS * 







C5 *. 






.* DOES *. 


NO 




RESULTANT 




TABXAS EQUAL 




* 


. COMXAS . 


X 










♦YES 


»CY * 






* D2* 










X 








CNIOAG 




*CD * 

* A2* 

ASSGNBA 



ASSGN9 

*»«»»E3********** 

♦SFPPE CS* 

•LOOK FOR'EQ PUB* 
* POINTERS COM- * 
•PUTE CTYPE *H1* 



THE LOGICAL UNIT TYPE, NEWTYP, AND THE 
DEVICE TYPE, DEVTYP, ARE COMPARED TO THE 
FIRST 3 BYTES OF THE 5-BYTE TABLE ENTRY. 



»G1 
TABXAS-THE CROSS ASSIGNMENT MASK FROM 
THE LAST TWO BYTES OF TABLE ENTRY, IS SAVED 
IN THIS LOCATION FOR COMPARISON AFTER ALL 
PROGRAMMER AND SYSTEM LUB'S HAVE BEEN 
CHECKED FOR CROSS ASSIGNMENT. 



F3 *. 

.** END '*. NO 
OF LUB'S .* 


F4 *. 

.* PROG * 
.* LUB SCAN 
...X*. ONLY. 
♦,-PROGSW- 

**N0 


* 


YES 


.*»#«F5*********» 

* SET CROSS * 

•ASSIGNMENT TYPE* 

,...X*TO HEX 8000 IN • 


**YES 
X 




* CTYPE * 
x* 


« A4 * 








ASSGN11 X 

»»»#»G5********** 

♦UPDATE LOGICAL * 

* UNIT TYPE * 

* *J1 • 



CTYPE IS THE COMPUTED LOGICAL UNIT 
TYPE AS DETERMINED BY THE DEVICE 
TYPE CODE IN THE PUB. 



*J1 
EACH TIME AN EQUAL PUB POINTER IS FOUND, THE VALUE IN CTYPE IS 
ORED INTO COMXAS TO BUILD A LOGICAL ACCUMULATION OF BITS TO 
BE COMPARED TO THE VALUE IN TABXAS. COMXAS CONTAINED THE 
LOGICAL UNIT TYPE AS IT WAS SET IN NEWTYP BY THE SUBROUTINE 
SYSXXX. CTYP CONTAINS THE LOGICAL UNIT TYPE HEX 80 IF 
PROGRAMMER LUBS ARE BEING SCANNED, OR THE COMPUTED 
VALUE SET IN THE SUBROUTINE SFPPE IF SYSTEM LUBS ARE 
BEING SCANNED. 



RETURN TO THE SFPPE 
SUBROUTINE BY 
BRANCHING TO THE 
ADDRESS IN LINKRA. 
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Chart CC. $JOBCTLD - ASSGN Statement Processor (Part 3 of 10) 
Refer to Chart 05. 



ASSGNB3 .«. 

B2 ». 
••OPERAND*. 
•• LENGTH *. YES 
♦ . EQUAL 3 .» 


»«»«»B3*«******** 

♦MOVE IGN MASK, • 

•HEX FE, TO BYTE* 

..X» OF NEWLUB * 


«. CHAR .* 


• -ASSUME IGN- • 


'•NO 
"x 




X 
ASSGN13 .*. 

C2 •. 
.•OPERAND*. 
NO .* LENGTH •. 
...*. EQUAL 2 .• 
». CHAR .« 


X 

C3***». 
.• IS •. 
NO .* OPERAND ♦. 
...*. IGN .* 



« MOVE UA MASK, • 
•HEX FF, TO BYTE* 

• OF NEWLUB * 

• -ASSUME UA- * 



E2 •• 

• IS • 
OPERAND 



YES .» 

*. PROGRAMMER 

♦. UNIT 



NO .* UNIT ». 

X....».SYSRDR,SYSIPT. 

••OR SYSIN .» 



«F2 
REGI 
POIN 
ADDR 



* B5* 
ASSGN402 



STER 

T4 CONTAINS 
OF NVSERR. 



* D3* 
FNIOAG 
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Chart CD. $JOBCTLD - ASSGN Statement Processor (Part 4 of 10) 
Refer to Chart 05. 



*CC-D3,E2,E3 



• SET RETURN * 
•SWITCH, RETSW, 
» OFF * 



CONVERT MODE • 

X'SS 1 TO BINARY* 

IN WRKRG3 * 



.* DID ♦ . 

.* A BLANK » 
.END THE LAST 
*. SCAN .♦ 



.» DID *. 

YES .* A BLANK ♦ 
X...*.END THE LAST 
*. SCAN .♦ 



*C1 
THE 3RD AND 4TH 
OPERANDS ARE BOTH 
OPTIONAL. THIS SCAN 
MAY BE FOR EITHER. 
IF PRESENT, THE 3RD 
OPERAND IS EITHER 
X'SS' OR ALT. THE 
4TH OPERAND, IF 
PRESENT, MUST BE 
TEMP. 



ASSGN14 

#»*##C2# 
♦SCANR3 



♦POINT TO 3RD OR» 

* 4TH OPERAND ♦ 

* *C1 ♦ 



D2 *. 

.* DID ♦ . 
NO .* A COMMA * 

OR BLANK END 

♦.THE SCAN .» 



* IS 

ASSIGNMENT 
*. SYSLOG . 



DEVICE 

A 

1052 



IS ». NO 
DEVICE .»..) 
TAPE .» 



YES .♦ OPERAND *. 

LENGTH EQ 5 .* 

*. CHAR .* 



.♦ OPERAND *. NO 
♦. LENGTH EQ 3 .♦..X 
♦. CHAR .• 



* IS * 

THE 

OPERAND 

TEMP 



.♦ IS *. 

.♦ STATEMENT 
FROM 
♦.OPERATOR . 



♦SET TEMPORARY^ 

ASSIGNMENT 
♦SWITCH, TMPSW* 



* G3 
ASSGN19 



SAVE THE MODE 

IN LOCATION 

MODE 



NO .* UNIT ♦. 
...*.EQ RDR, IPT, .♦ 
*. OR IN .♦ 



LOAD PUB 

ADDRESS IN 

WRKRG3 



♦ASSUME 7-TRACK 
♦TAPE AND INIT. 

♦ WRKRG4 AS 

♦ POINTER TO 7- 
♦TRK MODE TABLE 



♦ IS 
UNIT 7- 
TRACK 
TAPE 



••**«F4**#«*«#«« 
♦ASSUME 9 TRACK 
♦TAPE AND INIT. 

♦ WRKRG4 AS 

♦ POINTER TO 9 
♦TRK MODE TABLE 



SYSLOG ♦. NO . 
EQUAL .*..X. 
1052 .♦ 



X 
♦ CY* 



G3 ♦. 

.♦ IS ♦. 

STATEMENT 

FROM 

.OPERATOR . 



♦SET TEMPORARY^ 
♦ ASSIGNMENT 
SWITCH, TMPSW,* 
♦ ON * 



♦ SEARCH 7 OR 9 
♦TRK MODE TABLE 
♦TO VERIFY MODE 

♦ OF NEW ASSGN 



EQUAL 
FOUND IN 
. TABLE 



IS 


♦ . 


NO 


SYSRDR 




♦ • . . . 


.ASSIGNED 






♦ . „* 






*» .♦ 




X 


♦ YES 




• *«#» 
•CY ♦ 


....X. 




♦ D3» 


X 




• * 








» * 




FNIOAG 


♦ B3 ♦ 







♦ TURN ON 
ALTERNATE 

ASSIGNMENT 
SWITCH 

♦ -ALTASW- 



ASSGN1 


9A .*. 




J3 *. 






YES .-* 


IS 




\SSIGNMENT 




ALT 






X 






♦ NO 


♦CH ♦ 




• Al* 






X 






ASSGNB8 


♦ CE ♦ 




♦ Al» 




♦ * 








ASSGNB5 



TURN ON ♦ 

MODE SWITCH * 

-MODSW- ♦ 
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Chart CE. $JOBCTLD - ASSGN Statement Processor (Part 5 of 10) 
Refer to Chart 05. 



ASSGN05 .*. 

Al • . 
.» IS • . 

.•ASSIGNMENT 
». FOR 
• . SYSOUT . 



A2 • . 
.* IS • . 

.* ASSGN FOR 

.SYSRDR, IPT, 

«. PCH OR . 

*. LST .» 

'•YES 



• IS 

ASSIGNMENT 
•. TEMP 



ASSIGN 

TO 
IGNORE 



X 
B2* "•. 


ASSGNB6 








• DASD •. 


NO 


SYSIN/SYSOUT . 




•. OPTION .• 










X 


• YES 






• CY • 


. 


• D3« 










X 


FNIOAG 


C2 •. 




.» IS •. 




* THE FILE •. 
BEING r 


NO 




*. CLOSED .• 





.« IS •. 

•ASSIGNMENT 

FOR 
». SYSLNK . 



»*E1*»****« 

•SET JBCSW1 • 
•BIT OFF TO ♦ 

PROHIBIT LINK 
* EDIT OUTPUT * 

• ON SYSLNK • 



••Fl**««*»« 

♦ ZERO THE » 
•CURRENT ADDR 

FIELD OF THE 
• SYSLNK DIB 



CHKDIB 

♦ LOAD REGISTER 

♦ POINT2 AS 

♦ POINTER TO 

♦ TABLE 



ASSGNB6A .•. 

Gl •. 
.» IS ». 

.•ASSIGNMENT 
•• FOR A 
•. PROG 
♦.UNIT .• 

NO 



.• ASSGN FOR 

.SYSRDR, IPT, 

•. PCH OR . 

•. LST .• 



F2 •. 

.* IS *. 

•ASSIGNMENT 

FOR 
•. SYSLST . 



.♦ASSIGNMENT ». 

FOR 

♦. SYSPCH .• 



F3 •. 

.* HAS • 

THE FILE 
BEEN 
. CLOSED 



.*. 






G3 •. 






• HAS • 






THE FILE 


* 


YES> 


BEEN 




». . • . 


CLOSED 






• • .♦ 







H2 *. 
« HAS 
SYSIPT 

BEEN 
CLOSED 



IS 

DEVICE 

DISK 



"assignment 

*. TEMP 



••**E5**«***»** 

LOAD WRKRG3 

WITH LUB ADDR 

OF DEVICE 

TO GET 
ASSIGNED 



CHECK 

ASSIGNMENT OF 

THIS DEVICE 



• IS •. 

THE DEVICE . 
•.ASSIGNED .» 



THE 

DEVICE 

DISK 



ASSGNB6E .». 

J5 *. 
.» IS • 
NO .* THE FILE 
...». BEING 
♦. CLOSED 
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Chart CF. $JOBCTLD - ASSGN Statement Processor (Part 6 of 10) 
Refer to Chart 05. 



CE-A2,A5,D5,F3, 
G1,G3,G5,H1, 
H2,H5,K5, 



TAPE 
''•YES 



ASSGNB6 X 






.«. 


##*#«B1*»**»*»*»* 




B2 •. 


• MOVE A NULL 






.* IS * 


» JIB POINTER, 






.•ASSIGNMENT 


•HEX FF, TO THE 






«. FOR 


*LUB WORK AREA, 






•. SYSLST 


* NEWLUB 






*'*N0 


X 






X 








ASSGN23B .•. 


CI ». 






C2 •. 








.• IS • 


.* IS * 


YES 


.•ASSIGNMENT 


♦. ASSIGNMENT 






«. FOR 


• . TEMP .* 






». SYSPCH 














X 




• NO 




• CG • 

• B2» 


• NO 


X 


ASSGN22 


X 


. *. 






ASSGN23C .*. 


Dl *. 






D2 ♦. 








• • IS • 


NO .* CLOSE « 






.♦ASSIGNMENT 


...*. IN 






». FOR 


♦ . PROCESS .• 






*. SYSOUT 



»*««»B3»*«*«*««* 

• MOVE A NULL 

• JIB POINTER, 
•HEX FF, TO THE 

• SYSLST LUB 



ASSGN23A 

**.»«B5* 
•RSTSTD 



«C4 
THIS CHECK IS MADE BY 
COMPARING THE BITS OF 
PUB PTR. TO X'FE' THIS 
WILL SHOW EITHER 
IGNORE <FE) OR 
UNASSIGNEP (FF). 



CLOSE 

THE 
FILE 



ASSGN23 

• »»*«FL«< 

•CHKASG 



• CHECK SYSLST 
•ASSGN. COMPUTE 

• LUB, PUB ADDRS 



»#*»H1««««*»«»* 
SAVE LUB ADDR 

IN WRKRG1. 

SAVE PUB ADDR 

IN WRKRG2 

ZERO WRKRGA 



• CHECK SYSPCH 
•ASSGN. COMPUTE 
•LUB, PUB ADORS 



SYSOUT 

MODE 

• J2 

**YES 

X 

• A2 • 



• J2 
SYSLST AND SYSPCH 
PUB ADDRESSES ARE 
COMPARED. IF THEY 
ARE EQUAL SYSOUT 
MODE IS IN EFFECT. 



• MOVE A NULL 

• JIB POINTER, 
•HEX FF, TO THE 
» SYSPCH LUB 



LOAD WRKRG3 
WITH PUB ADDR 
FOR THIS UNIT 

FROM NEWPUB 



.» MODSW ». NO 
.ON. -WAS MODE .*... 
•.SPECIFIED.* 



#*»»«H3* 
•RESET STANDARD 

• MODE IN PUB+7 

• -SET OFF BITS 

• 0-4- 



•RESET OWNERSHIP* 

• BITS TO ZERO * 

• IN LOCATION • 

• MODE * 
•-BITS 6 AND 7- » 



»*».«K3********** 
•UPDATE STANDARD* 

• MODE IN PUB+7 * 

• -ORED WITH * 
» BITS FROM • 

• LOCATION MODE * 



MOVE MODE TO 

PUB+5 
FROM LOCATION 

MODE 



•SET BITS 6 AND • 
•7 ON IN PUB+5. * 
•TO COMPLETE THE* 
•SET MODE INSTR * 
• FORMAT * 



• MULTI- 
PROGRAM 
*. SUPPORT 



• IS 

ASSIGNMENT 
«. SYSREC . 



SET UP 

POINTER 

TO CORRECT 

PIB -P0INT1- 



84 DOS IPL and Job Control 



Chart CG. $JOBCTLD - ASSGN Statement Processor (Part 7 of 10) 
Refer to Chart 05. 



.♦ CROSS 
..X». ASSIGNMENT 
♦.COMPLETE . 



PLACE ADDR 

OF FICL IN 

WRKRG4 



* DETERMINE 

* LUB TABLE 
*DISPL AND SYST 

* LUB TAB AODR 

* -WRKRG4- 



•MAKE ASSGNMENT 

* BY MOVING LUB 
•FROM WORK AREA 
» NEWLUB TO 

* LUB TABLE 



» UPDATE PIB 

* POINTER TO 
•NEXT PARTITION 

• -POINTW- 



LOAD WRKRG4 
WITH LUB ADDR 
FOR THIS UNIT 

FROM LUBAD 



•MAKE ASSGNMENT 

* BY MOVING LUB 
•FROM WORK AREA 

• NEWLUB TO LUB 
•TABLE 0+WRKRG4 



ASSGN22 X 

••»«*B2«*«***««» 
•CHKASG BK 

• CHECK~SYSPCH*^ 
•ASSGN. COMPUTE 
•LUB, PUB ADDRS 



• IS ». 
DEVICE *. NO 
A .»..X 
TAPE .* 



SAVE SYSPCH 

PUB ADDR IN 

WRKRG1 



• CHECK SYSLST 
•ASSGN. COMPUTE 
•LUB, PUB ADDRS 



IS * 
SYSLST 
.ASSIGNED .• 



J2 *. 
.» IS *. 

•ASSIGNMENT 

FOR 
•. SYSPCH . 



K2 *. 
.« IS •. 

♦ASSIGNMENT 

FOR 
♦. SYSLST . 



.♦ IS •. 

•ASSIGNMENT 

FOR 
». SYSIN . 



*C3***»**« 

SET 
RETURN 
SWITCH, 
RETSW, 



ON 



GET ADDR OF 

FREE JIB IN 

WRKRG4 



•*C4»»»»*» 

SET 
RETURN 
SWITCH, 
RETSW, 

OFF 




TURN ON 
GETJIBSW 
IN GETJIB 

ROUTINE 
•H3 



♦RESTORE ADDR OF^ 
♦FIRST FREE JIB ♦ 
♦IN POINT3 FROM ♦ 
♦ WRKFLD2 ♦ 



LOAD LUB ADDR 

OF THIS UNIT 

IN WRKRG1 

FROM LUBAD 



•STORE STANDARD 

• LUB, FROM LUB 
» TABLE, IN JIB 

• BYTES AND 1 



•»«»*F5 ••••••••♦ 

♦ SET FLAG BITS 

♦ IN JIB+2 BY 
♦ORING WITH THE 
♦GENERATED MASK 

♦ IN SSTDMSK 



ATTACH JIB TO 

LUB IN WORK 
AREA, NEWLUB 



H2 *. 


NOP THIS SWITCH BY 


• ••♦•^•••••«» 




CHANGING LH 


• SAVE AODR OF 


SYSOUT ». NO 


INSTRUCTION TO CH. 


•FIRST FREE JI 


MODE .«..X 




• IN WRKFLD2 


»J3 .• 




• FROM POINT3 



• J3 
SYSLST AND SYSPCH 
PUB ADDRESSES ARE 
COMPARED. IF THEY 
ARE EQUAL, SYSOUT 
MODE IS IN EFFECT. 



IS 

DEVICE 

TAPE 



••••H5 «»•♦*»••• 

LOAD LUB ADDR 

IN WRKRG3 

FROM 

NEWPUB 



MODSW 
ON. -MODE 
.SPECIFIED. 



• YES 

I FNIOAG 
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Chart CH. $JOBCTLD - ASSGN Statement Processor (Part 8 of 10) 
Refer to Chart 05. 



ASSGNB8 X 

* L0A0 LUB ADDR 

* OF UNIT TO BE 

* ASSIGNED, -- 



INCU, 

REG 



X 

##«#*B1»*« 
•CHKASG3 



CHECK ASSIGN- 
MENT OF THIS 
UNIT. 



.# IS *. YES 

•ASSIGNMENT FOR 

#. SYSLST .♦ 



IS UNIT *. NO NO .• IS *. 

ASSIGNED ,*....X ASSIGNMENT FOR. 

.* . *. SYSPCH .» 



•ASSGN FOR A» 

PROGRAMMER 
• . UNIT .• 



IS 

DEVICE 

TAPE 



LOAD LUB 

ADDRESS IN 

WRKRG3 



IS 

SYSPCH 

.ASSIGNED 



♦SAVE SYSPCH PUB» 

• ADDRESS IN • 

♦ WRKRG1 FROM • 
« WRKRG4 • 



NO .» IS 
...». SYSLST 

•.ASSIGNED 



YES .• IS 

X...». ASSIGNMENT 
•. TEMP 



NO .♦ THERE A • 
,..».JIB ATTACHED 
•. TO THIS .* 
». LUB .• 



MOVE LUB TO 

WORK AREA 

JIBCHN 



COMPUTE 
ADDRESS OF 
ATTACHED JIB 



.« IS • 

.* ATTACHED 
JIB 

♦.STANDARD 



SET THE RETURN* 
•SWITCH, RETSW, 
• OFF • 



GET JIB ADDR 

IN REGISTER 

POINT3 



♦#*#*D4»^»»*«*«^» 

♦ MOVE THE PUB • 
♦POINTER, NEWLUB» 

♦ BYTE 0, INTO • 

♦ JIB BYTE • 



SET ALTERNATE 
FLAG IN JIB. 
BYTE 2, BIT 1 



F4 *. 


F5 ♦. 




.» WAS • 


IS •. YES 


.•ASSIGNMENT 


ASSIGNMENT ......X 


♦ . FOR 


. TEMP .» 


•. SYSOUT 



SET STANDARD 
FLAG IN JIB. 
BYTE 2, BIT 4 



LOAD PUB ADDR 
OF THIS 

ASSIGNMENT IN 
WRKRG3 



PICKUP MSK 
FOR OWNER- 
SHIP FLAG 



SET EITHER 
BG,F2,0R Fl 
OWNER FLAG 
IN iPUB+7, BIT 
5, 6, OR 7 



••••G5***«**»* 

LOAD ADDRESS 

OF SYSLST 

LUB IN 

WRKRG3 



X 
*»»«H5*»»«*»«*«' 

MOVE 

THE JIB 

POINTER FROM 

SYSPCH LUB TO 

SYSLST LUB 



• B4» 
CONTROL 



K3 •. 
.• IS *. 

» THIS 

ASSIGNMENT 
♦. TEMP 



SYSLST AND SYSPCH PUB 
ADDRESSES ARE COMPARED. 
IF THEY ARE EQUAL SYSOUT 
MODE IS IN EFFECT. 
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Chart CJ. $JOBCTLD - ASSGN Statement Processor (Part 9 of 10) 
Refer to Chart 05. 



ASSGNB7 X 

*CHK0PN CV 

* SET OPEN FLAG 
« OFFIN DFBS 
•USING THIS DEV 



LOAD LUB ADDR 

OF THIS UNIT 

IN WRKRG3 



CHECK 

ASSIGNMENT 

OF THIS UNIT 



El • . 

.* IS *. 

.•UNIT CROSS •. 

.ASSIGNED WITH. 

•. SYSLOG .» 



PICK UP MASK 

FOR OWNERSHIP 

FLAG 



***»»G1*****»«** 

♦ SET EITHER 

* BG, FL OR F2 

♦ OWNER FLAG IN 
•PUB+7 BITS 5,6, 

* OR 7 



ASSGN29 .*. 

HI «. 
.* IS *. 

.•ASSIGNMENT 
*. FOR 
*. SYSIN . 



»»**»J1#»»#»#»* 

* SET SYSTEM 

* TYPE, SYSTYP 

* FOR SYSIPT 



ASSGN32 .*. 












X 




A2 ». 












*##A4*«*»*««» 




.* IS * 










♦ 


LOCATE CLB 




.•ASSIGNMENT 
• . FOR 
•. SYSLST 


* 


YES 


• RESET JOB • 




* 


LUB 

POINTER 

»D5 


* 


» 




• COUNT TO 1 • 




* 


» 


• • .* 






« * 




* 




* 


• NO 


: 














. 






X 




X 










ASSGN33 .•. 
















B2 *. 






• B3 






B4 ». 




.• IS • 






THE SYSTEM UNITS 










.•ASSIGNMENT 




YES 


SYSRDR, SYSIPT 


YES 


* ALL » 




•. FOR A PROG 






SYSPCH, AND SYSLST 






3 PARTITIONS 




». UNIT 


* 


. 


CAN BE OPENED. 






*. CHECKED .• 
























X 












• NO 




*BB * 
* B4« 








• NO 




X 




CONTROL 
















ASSGN38 .». 


CCNDSCK X 




C2 ». 






C3 •. 




##«*#C4»«**«»»» 




.* # 
















.» ASSGN 


» 


NO 


.• CAN *. NO 




« 


INCREMENT 


* 


• . FOR 






.X*. THE UNIT .♦... 






TO NEXT 




•. SYSCLB 






•.BE OPENED.* 






PIBX 




*. .♦ 






*. »B3 .» 




* 




* 


♦ YES 






•YES 

• BB • 

• B4» 














X * 
























X 






•CK » CONTROL 




X 










• A3» 










02 •• 






» • 






D4 •. 
















.• IS *. 




.* ASSGN 




YES 








• IT THIS • 




». TO 












PARTITIONS 




♦ . UA 


• 


. 








•. PIBX .» 





*#E2*»»»»«« 
•SET SYSTEM 

• FILE OPEN 
INDICATOR 

• JBCSWO 



X 
•*»E3*«**»»»* 

SVC2 

FETCH 

SSBOPENR TO 

OPEN PCIL 



.» SAME 
•. POINTER IN 
». LUB 



SAME 
STARTING 
.CYLINDER 



•ASSIGNMENT •. NO 

FOR .*... 
•. SYSOUT .• 



SET SYSTEM 

TYPE, SYSTYP 

FOR SYSLST 



ASSGN31 

«»»«*K1«**««»««* 

• INCR "LUB ADDR, 

• LUBAD, BY 2 
» TO POINT TO 

• NEXT LUB 

• SYSIPT/SYSLST 



* 
* A5 



»#G3«»«*»«* 






G4 •• 


• RESET • 






.• PCIL ». 


• SYSTEM FILE ♦ 






.* CONDENSE ». NO 


« OPEN 






OR ALLOW EXEC.*.. 


♦ INDICATOR • 






*. BIT ON .» 








*"»YES 


X 










INVASGN X 


H3 ». 




*#»##H4»»«« *»••«• 


.♦ WAS •. 




♦UNPA3 CU» 


.« OPEN •. 


NO 






•. SUCCESSFUL . 




* 


UNASSIGN » 








SYSCLB • 


». .* 


X 


* 


* 


• YES 




. 




• CK • 








• B5» 












X 








»#*•* 




UNASSGN 




• CY • 


X 






» D3» 


**J3##*«r*»# 
















• SET • 








• CLB 






FNIOAG 


* DIB • 
















X 
















K3 •. 
















.• BJF ♦. 


NO 






*. SUPERVISOR . 


























X 






• YES 


• BB * 








» B4»C0NTR0L 



»*«*»A5«***«*«* 


»* 




NULL THE 








JIB POINTER 






IN 








NEW LUB 






* 






* 




X 
















B5 •. 
















• IS 


« 


. NO 




ASSIGNMENT 








•. TEMP 


* 


















X 




• YES 




• ••• 

• CF 

• B5 




X 
















*CG • 


ASSGN23A 




• F4« 
















* 








ASSGN28 







• D5 
THE SYSCLB LUB IS NOT 
IN THE LUB TABLE. IT IS 
FOUND BY SUBTRACTING 
PIK/8 FROM THE PIBX 
ADDRESS. IF ASYNCHRONOUS 
PROCESSING IS NOT 
INCLUDED, WRKRG1 
IS INCREMENTED BY 16 
TO OFFSET THE EXCLUSION 
OF AN ALL BOUND 
PIBX. 
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Chart CK. $JOBCTLD - ASSGN Statement Processor 
Refer to Chart 05. 



(Part 10 of 10) 



«*»»#A1»*****»»»« 
•MOVE CLASS AND ♦ 

• ORDER TO * 

• IJSYSIN • 

• DTF+6 FROM * 
•LOCATION CLA0RD« 



ASSGN41 X 

•#»##A2»*««»*«* 

• LOAD SYSLST 

• DIB ADDR IN 

• P0INT2 FROM 

• P0INT1 



•••♦A3******»» 

LOAD LUB 

ADDRESS OF 

THIS UNIT IN 

WRKRG3 



»*•»*£].#*##»•»* 

MOVE INPUT 

MASKi HEX OA, 

TO IJSYSIN 

DTF+21 

^INPUT FILE- 



MODIFY FILE 

NAME IN 
IJSYSIN DTF 
+27 TO IN 



• »B2* 

•SET JBCSWO • 

• BIT 1 ON TO • 

»INDICATE-RETURN» 

•TO CALLER IF • 

•OPEN FAILS • 



••C2******* 

RESET SWITCH* 

♦BYTE, IJSYSIN^ 

DTF+21, TO * 
♦ HEX 08 • 



Dl ». 


••«**D2*«***»«* 


.* IS •. 


•MTNCNT B 


UNIT SYSRDR*. YES 




OR 


•RELEASE SYSTEM 


. SYSIPT .• 


• SET SYSTEM 




•MASK TO HEX FF 



MOVE OUTPUT 
MASK, HEX 08, 

TO IJSYSIN 

DTF+21 

-OUTPUT FILE- 



MODIFY FILE 

NAME IN 
IJSYSIN DTF 
+27 TO PH 



RESET KDD IN 
SYSPCH DIB+9 
TO DECIMAL 81 



*»**E2»*»*****» 
• FETCH • 
•$$BOPEN TO • 
OPEN THE FILE 
SPECIFIED BY* 
IJSYSIN DTF.« 



• SEIZE SYST. 

* SET SYSTEM 
•MASK TO HEX FF 



»»G2«»»*»»» 

•SET JBCSWO • 

•BIT 1 OFF TO ♦ 

•IND. NO RETURN 

•TO CALLER IF » 

•OPEN FAILS • 



CHECK 

ASSIGNMENT 

OF THIS UNIT 



IS 

DEVICE 

TAPE 



NO .* IS 

DEVICE 

•. DISK 



ASSGN40 X 

»**»B4«*»*»**«*» 
EXCPROG CX 

SENSE*IVO* 
• FOR THIS * 
DEVICE 



UNASSGN 

»#*#«B5* 
•UNPA3 



DEVICE 

TO LOAD 

POINT 



• RELEASE SYST 

• AND SET SYST 
•MASK TO HEX FF 



SVC 2 - FETCH 
•$$BJCOPT TO* 
•OPEN DEVICE* 



SEIZE SYST. 

SET SYST MASK 

TO HEX FF 



UNASSIGN THE 

LUB FOR 

THIS UNIT 



C5 *. 
.• IS *. 

♦ASSIGNMENT 

FOR 
*. SYSIN . 



•INCR LUB ADDR, 

* LUBAD, BY 2 
♦BYTES TO POINT 

♦ TO SYSIPT 



UNASSIGN 

SYSIPT 

LUB 



POINT TO 

ERROR MSG 

-1A80D- 



• B3» 

OERRTN 



IS • 
UNIT 
. SYSPCH .» 
• . . • 

'•NO 




i'ES 

X 

* A2 * 


.• DID • 

♦. FILE OPEN 
•.CORRECTLY. • 
«. *K2 .• 

**»YES 


X 
»* Jl»«*»»»*# 
MODIFY FILE 

NAME IN 
IJSYSIN DTF 
+27 TO LS 




RMR '. 
ASSGN42 X 

«#*«#J2«»»*»«** 

• UPDATE DIB 

• FOR THIS UNIT 

• FROM IJSYSIN 
•DTF *J 



•»»K1***»****** 


* • 




RESET KDD IN ♦ 






SYSLST DIB+9 • 


CONTROL 




TO DECIMAL • 






121 • 








• K2 




*************** 


TEST SWITCH BYTE 
IJSYSIN DTF + 21 


AT 




HEX 04 INDICATES 


A 


X 


CORRECT OPEN 














• A2 * 







THE DIB CURRENT 

ADDRESS, BBCCHHR, IS 

SET FROM THE DTF+58. 

THE R VALUE OF THE 

CURRENT ADDRESS IS 

SET TO 1. 

THE BB VALUE OF THE 

END ADDRESS IS SET 

EQUAL TO THE- BB VALUE 

OF THE CURRENT ADDRESS 

THE CCHH OF THE END 

ADDRESS IS SET FROM THE 

DTF+54. 

THE UPPER HEAD LIMIT IS 

SET FROM DTF+71 

THE LOWER HEAD LIMIT IS 

SET FROM DTF+54 
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Chart CL. $JOBCTLD - CLOSE Statement Processor 
Refer to Chart 06. 



CLOSE 

•INITL 



INITIALIZE 

FOR 
RELOCATION 



*A2 
SYSXXX IS CHECKED FOR VALIDITY AND THE 
FOLLOWING INFORMATION IS MADE AVAILABLE. 
. LUB ADDR OF 1ST UNIT OF CLASS IN FLOC AND 

SLADD. 
. NUMBER IN CLASS OF THE SPECIFIED UNIT IN 

NOC AND SNICL. 
. THE SYMBOLIC UNIT ADDR, CLASS AND ORDER, 

IN CLAORD. 
. THE LUB ADDR OF THE SPECIFIED UNIT IN 

WRKRG2 AND LUBAD. 
. THE PUB ADDR OF THE SPECIFIED UNIT IN 

OLD PUB. 
. THE LOGICAL UNIT TYPE IN NEWTYP. 



»»»»A4** *»»»»* 

LOAD POINTER 

TO THE 

OPTIONAL 

OPERAND IN 

WRKRG3 



POINT TO 

OPERAND 

-SYSXXX- 



Cl *. 
.♦ DID *. 

.* SCAN END •. NO 
.WITH A BLANK .•... 
•.OR COMMA .• 



YES .* 

...». PROGRAMMER 
*. UNIT 



SET CLOSE 

SWITCH ON 

-BANK1, 

BIT 0- 



♦ C2* 

NVSERR 



* CHECK XXX AND * 

* GET SYMBOLIC * 
•UNIT ADDR *A2» 





EL 


*. 






.• IS •. 






.« UNIT ♦. 


^JO 


* 


. ASSIGNED .• 
• . *E5 








X 




• YES 


• CY** 








• B2* 
























INDVTP 




X 










• 


GET PUB ADDR. • 






IND MOVE DEVICE* 






TYPE TO DEVTYPE* 






FROM PUB • 




* 


• 





YES 


. • 


IS 






DEVICE 


♦ 


* 


DISK 


X 










• NO 


• CY • 






• B2» 
























INDVTP 












X 






•«E4«»»»«« 






SET CLOSE 






SWITCH ON 






-BANK1, • 




* 


BIT 


0- 



CLOSE 

DESIRED 
UNIT 



• E5 
THIS CHECK IS 
DONE BY A 
BRANCH AND 
LINK TO CHKASG3 
SUBROUTINE. 



IS 
DEVICE 
. DISK 


• • NO 


.» IS 

.X*. DEVICE 
*. TAPE 


». NO 


"•YES 




**YES 


X 

• CY • 

• B2» 


X 

HI* "♦. 
.• IS • 

DEVICE A 
PROGRAMMER 
. UNIT 


«. YES 


X. 
H2**'«. 

• '. PROGRAMMER 
*. UNIT 


INDVTP 

H3* **. 
.« IS 

•. NO .• THERE A 
X». SECOND 

• *. OPERAND 


'•NO 


X 

• CY*» 

• Bl» 


**»YES 


''•YES 



♦RELEASE SYSTEM 

* SET SYST MASK 

♦ TO HEX FF 





• H5 






1. 


REG IS LOADED 
WITH THE SYMBOLIC 


X 




UNIT ADDRESS, CLASS 


*#«»»H4**»»»»**«» 




AND UNIT. 


• INIT REGS • 


2. 


REG 1 IS LOADED 


• AND 1 FOR EOV • 




WITH THE ADDRESS 


• B TRANSIENT • 




OF THE PHASE NAME 


•FETCH «H5* 




BEING FETCHED. 


* * «* • * 







» IS ♦ 

THERE A 

SECOND 

OPERAND 



CL0SE2 .». 

K2 •. 
.♦ IS • 

.» THERE 
•. A SECOND 
«. OPERAND 

X NVSERR **•. .»* 
*»•»• #YES 

• BM • 



•• IS ». 




•***J4»*»»****» 


THE UNIT • 


NO 


• SVC 2 • 


SYSPCH,LST 




•FETCH $$BCMT07 * 


. OR OUT .♦ 












». .* 


X 






• CY • 

• Bl* 

ILUS 










X 






»»»**K'+**»*»«»»«» 






•MTNCNT BK« 




• SEIZE SYSTEM. • 






♦ SET SYST MASK • 






♦ TO HEX FF • 






CONTROL 
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Chart CM. $JOBCTLD - Miscellaneous Subroutines (Part 1 of 3) 
Refer to Chart 06. 



»A1»***# 
INITL 



*A4»*»«« 
CHKRNG 



#«#«*B1#»«**«««* 

* ZERO SW BANK1 

* LOAD WRKRG2 

* AS POINTER TO 
•ROOT PHASE I/O 

* AREA 



###«C1«»«**»*» 

INITIALIZE 

CCW -WRKCCW- 

WITH THE I/O 

AREA ADDRESS 

OF BUFFER 



.* HAS ♦ . 

.•RELOCATION •. 
•. BEEN 

•.PERFORMED.* 



• PUT NUMBER 

• OF ENTRIES IN 
•RELOCATION TBL 

• IN WRKRG2 

• »E2 



»#*»#F1 »»»•»»»»» 

• LOAD THE ADDR 

• OF START OF 
♦RELOCATION TBL 

• -4 IN A REG. 

• -P0INT1- 



SET SWITCH 

NORELSW TO 

BRANCH 



»«*D2»«*«»**« 

RETURN TO 

CALLING SEQ 



EACH ENTRY CON- 
SISTS OF A PAIR 
OF S TYPE 
ADCONS. 



♦ F2 
THIS EXIT IS NORMALLY 
TO NVSERR, CHART BM-C2. 
IF THIS ROUTINE IS 
ENTERED FROM DLBL 
STATEMENT PROCESSING 
ROUTINE SJOBCTLK, 
EXIT IS TO FDKIJ2 
CHART HE-J2. 



GETLAN X 

**##»B3»»«»»»»* 

• COMPUTE LUB 

• ADDRESS OF 

• DESIRED UNIT 

• IN WRKRG2 

• *J2 



MOVE NUMBER 
IN CLASS 
FROM PIB 
TO WRKRG3 



#A5»**»» 
NUMCON 



• B5* 



»»»D3«**»**»» 
SAVE NUMBER 
IN CLASS IN 

NOC AND 
SNICL FROM 

WRKRG3 



#««E3«*«*»** 

SAVE LUB 

ADDRESS IN 

SLADD AND 

FLOC FROM 

WRKRG2 



INITIALIZE 

WORK 

REGISTERS 



IS 

CURRENT 
CHAR LT 



.♦ IS ♦ . 

* CURRENT * 

CHAR GT MAX 
*. CHAR .* 



* INCR WRKRG3 

♦ TO POINT TO 
•NEXT CHARACTER 



LAST 
CHARACTER 
. CHECKED . 



SET MAXIMUM 
CHARACTER TO 
F9 IN RNGTOP 
OF THE CHKRNG 

SUBROUTINE 



CHECK PARAM. 

FOR CHARACTER 

RANGE F0-F9 



♦PACK PARAMETER 

* IN WRKFLD1 

* CONVERT TO' 

* BINARY IN 

* WRKRG3 



RETURN TO 
CALLING SEQ 



ADR.PTR 
RELLOP X 

*»««»G1»><«*««* 

♦ INCREMENT 

♦ P0INT1 BY 4 

♦ TO POINT TO 

♦ NEXT ENTRY 



• ♦•♦•^♦♦♦♦♦♦♦♦* 

* PUT THE VALUE 

♦ OF THE FIRST 

♦ ADCON INTO 
♦LOCATION ADDR. 

* OF 2ND ADCON 



♦ YES 
X 
B2 ♦ 



♦ G2 
RNGTOP IS A COMPARE IMMEDIATE 
INSTRUCTION. THE CALLING 
SEQUENCE MOVES THE MAXIMUM 
CHARACTER INTO THIS 
INSTRUCTION BEFORE BRANCHING 
TO THIS ROUTINE. 



RETURN TO 

CALLING 

SEQ 



WRKRG3 IS SET TO THE PARAMETER 
START ADDRESS FROM P0INT1. 
WRKRG4 IS SET TO THE NUMBER OF 
CHARACTERS IN THE PARAMETER BY 
LOADING A VALUE 1 GREATER THAN 
THE CONTENTS OF P0INT3. 



J2 


BG 


F2 


Fl 




NICLS 


SS. 


pp 


SS. 


PP 


SS. 


PP. 


FICLS 


ss. 


pp 


SS. 


PP 


SS. 


PP. 



THE FORMAT FOR LOCATIONS 
FICLS AND NICLS WHERE— 
SS = SYSTEM CLASS 
PP = PROGRAMMER CLASS 



P0INT1 CONTAINS DISPLACEMENT FROM 
ENTRY POINT (MAY BE NEGATIVE). 
CALCULATE PROPER FICLS AND NICLS 
USING PIK (PIK = «10' FOR BG, 
•20' FOR F2, '30' FOR Fl). 
FICL X2 + LUBADD = LUB 
ADDRESS OF FIRST UNIT OF 
DESIRED CLASS IN DESIRED 
PARTITION. 
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Chart CN. $JOBCTLD - Miscellaneous Subroutines (Part 2 of 3) 
Refer to Chart 06. 



*A1«***» 
SKIPLN 



•A2»»*«« 
OUTPUT 



•#»«A4»»»»*» 
OUTPUTS 



***A5* 

0UTPUT1 



»«**B1***»**** 

CLEAR BUFFER 

TO FORCE 



B2 *. 
SYSLST **». 


YES 


***»B3********* 
• RETURN » 


»****B4********** 
•OUTPUT CN* 

* PRINT A LINl * 

* ON SYSLST OR * 

* SYSLOG * 






• CALLING SEQ » 



»*C2»**»**« 




•SET BITS 1 • 




•AND 2 OFF IN • 




JBCSW4 TO ALLOW* 


• 0UTPUT2 


♦ OUTPUT ON • 
SYSLST.SYSLOG 


*•••••••••••••»* 



* PRINT A BLANK 
•LINE TO EFFECT 

• A SPACE 



PRINT A LINE 
ON SYSLST 
OR SYSLOG 



.X.X. 



...*. 


OPERATOR 
♦.STATEMENT.* 











X 




X 






***** 


♦ BE * 




♦BE • 


• B3» 




* CI* 














LSTOUT 




LOGOUT 



OUTPUT2 X 

»****D4********** 
•CLEAR TEMPORARY* 

* FIELDS, TMODE * 

• AND TCMNT, IN * 
« TRANSIENT * 
•AREA TO BLANKS * 



CLEAR THE I/O 

BUFFER TO 

BLANKS 



RETURN 

TO 

CALLING SEQ 
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Chart CP. $JOBCTLD - Miscellaneous Subroutines (Part 3 of 3) 
Refer to Chart 06. 



••»A3»»**» 
HEXCON 



•ASSIGNMENT *. YES 

FOR 

*. SYSRLB .* 



.» IS ». 

•ASSIGNMENT 

FOR 
♦. SYSSL8 . 



.» IS •. 

.♦ASSIGNMENT 
• . FOR 
*. SYSCLB . 



El ». 
.* IS • . 

.•ASSIGNMENT 
FOR 
*. SYSREC . 



CONVERT HEX 
CUU TO 
BINARY 



ASSGNP1 X 

#«»«#Gl»**»»*«* 

• GET CURRENT 

• DEVICE 

• TYPE IN 

• WRKRG1 



LOAD WRKRG3 

WITH PUB TBL 

ADDRESS 

FOR LOOK UP 



*«*E2»*»»**» 

SEARCH PUB 

TABLE FOR 

DESIRED 

DEVICE 

-CUU- 



DEVICE 
FOUND IN 
. TABLE 



SAVE DEVICE 

TYPE AND 
PUB ADDRESS 



TRANSLATE 
EBCDIC -CUU- 
TO HEX -CUU- 
A-F TO FA-FF 



CHECK 

CHARACTER 

RANGE 



» VALID 

CHARACTERS 
*. FO-FF . 



••«»«F3» 

•PACK HEX -CUU- 
•TO BINARY -CUU- 

• MAKE RESULT 

• AVAILABLE IN 

• WRKRG3 



♦»#*G3****»*»«» 
TXCUU3 



INIT WRKRG3 
AS POINTER 
TO PUB FOR 
THIS UNIT. 



C4 •. 

• IS 
OEVICE 
TYPE 
DISK 

«. »D5 . 



•».C5*»*»»»»« 

RETURN TO 

CALLING SEQ 



INIT CCW 
AND REGISTERS 

TO WRITE ON 

DESIRED UNIT 

• H3 



•05 
WHEN ENTERED FROM 
CHART BN BLOCK K2 THE 
DEVICE IS ALWAYS A 
PROGRAMMER TAPE UNIT 
AND THE CLOSE SWITCH 
IS OFF. 



»**ft«F4*****»*»»» 

•CLEAR I/O AREA • 
•BUFFER TO BLANK* 

• MOVE TRAILER • 
•IMAGE TO BUFFER* 

• FROM CEOV1 ♦ 



MODIFY CCW 

TO WRITE 

TAPE 



GET PUB ADDR 

OF SYSRES IN 

WRKRG4 



.• THIS •. 

YES .♦ UNIT TYPE • 
X...*.EQ TO SYSRES 
«. TYPE .* 



• H3 
1. A WRITE TAPE MARK 
COMMAND IS SET IN 
THE CCWt WRKCCW. 

2. POINT1 IS LOADED 
WITH THE SYMBOLIC 
UNIT ADDRESS, CLASS 
AND ORDER, OF THE 
DESIRED TAPE UNIT. 

3. POINT2 IS LOADED 
WITH THE PUB 
ADDRESS OF THE 
DESIRED UNIT. 



COMPUTE THE 

PUB POINTER 

*K2 



RETURN TO 
CALLING SEQ 



*K2 

1. CURRENT PUB ADDRESS, WRKRG3, MINUS 

PUB TABLE ADDRESS EQUALS PUB DISPLACEMENT. 
PUB DISPLACEMENT DIVIDED BY 8 EQUALS THE 
PUB POINTER. 

2. THE PUB POINTER IS SAVED IN THE 
LOCATION NEWLUB. 



MODIFY CCW 
TO WRITE 
TAPEMARK 



MODIFY CCW 

TO REWIND 

AND UNLOAD 



REWIND 

AND 
UNLOAD 



.* IS *. 

THE CLOSE 
SWITCH ON 



SET CLOSE 

SWITCH OFF. 

-BANK1, BITO- 



*»#K5«*»«**»* 

RETURN TO 

CALLING SEQ 
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Chart CQ. $JOBCTLD - Close Subroutine 
Refer to Chart 06. 



CL0SE11 X 

«»##*A5»«**»«*»» 

• LOAD DIB ADDR 

• OF SELECTED 

• UNIT IN POINT2 

• FROM P0INT1 



INIT WORK 
AREAS AND 
REGISTERS 



•B2 
L.WORKAREAS, WRKFLD2 

AND WRKFLD3.ARE 

SET TO ZERO. 
2.POINT2 IS LOADED 

WITH THE DIB TABLE 

ADDRESS. 
3.POINT1 IS LOADED 

WITH THE DIB TABLE 

ADDRESS OF SYSPCH. 



CI *. 

* IS 
UNIT 
SYSPCH 



#.#.D1* 

LOAD P0INT1 

WITH THE DIB 

TABLE ADDRESS 

OF SYSLST 



• • IS * 

SYSRDR 
ASSIGNED 



* IS 
UNIT 
SYSLST 



* LOAD WRKRG3 
♦WITH LU3 TABLE 
« DISPLACEMENT 

• OF SYSIPT 



SYSRDR 
AND SYSIPT 
. SAME 
•DEVICE. » 



IS 
UNIT 
SYSIN 



»»«F3»***«*»* 

RETURN TO 

CALLING SEQ 



SET CURRENT 
ADDR EQUAL TO 
END ADDR, IN 

DIB OF 
SELECTED UNIT 




CLOSE9 


.». 




E4 * 




» IS 




UNIT 


• . 


SYSIN 



**»*F4* 

LOAD POINT1 

WITH ADDRESS 

SYSIN DIB 



ZERO THE KDD 
FIELD OF 

CURRENT ADDR 
IN DIB OF 

SELECTED UNIT 



STORE CURRENT 

ADDRESS, 

BBCCHHRKDD, 

IN WRKFLD2 



BUILD SEARCH 

ADDRESS IN 

WRKFLD3 



.* IS • 

SYSIPT 
ASSIGNED 



SAVE SYSIPT 

PUB POINTERS 

IN WRKRG4 

FROM WRKRG1 



*H3 
l.REG L IS LOADED WITH 

THE SYMBOLIC UNIT ADDRESS, 
CLASS AND ORDER, 
OF THE SELECTED 
UNIT. 
2. REG IS LOADED 
WITH ADDRESS OF 
THE WRITE FILE 
MARK CCW. 



•INIT REG 1 AND * 

* REG FOR * 

• WRITING FILE * 
•MARK ON SELECTD* 
•UNIT *H3» 



WRITE FILE MARK 
ON SELECTED • 
UNIT 



CLOSE12 

• ZERO CURRENT 

• ADDR IN DIB 

• FOR SELECTED 

• UNIT 



»#*«»Kl»»«*»»*«» 

• LOAD WRKRG3 
»WITH LUB TABLE 

• DISPLACEMENT 
» OF SYSRDR 



#«*K5«*«*«**« 

RETURN TO 

CALLING SEO 
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Chart CR. $JOBCTLD - Miscellaneous Subroutines (Part 1 of 5) 
Refer to Chart 06. 



RSTSTD 

»»#«»B1«»**«»«* 

* INIT SSTDLUB 
« TO HEX FFFF 
» -STORED 

* STANDARD 
» LUB ID- 



»**B4»*#* »♦» 

LOAD THE 

ADDRESS OF 

FAVP IN 

WRKRG3 



*»«#C1«*«»**«* 

MOVE JIB 

POINTER FROM 

CURRENT LUB 

TO WORK AREA, 

JIBCHN+1 



•MOVE STORED LUB« 
• IF ANY, TO LUB * 
» WORK AREA » 



MOVE JIB 

POINTER FROM 

FAVP TO 

JIBCHN+1 



•##*B5«««**»«* 

MOVE JIB 

POINTER FROM 

CURRENT LUB 

TO JIBCHN+L 



INIT P0INT3 

AS POINTER 

TO PREVIOUS 

LUB 



GETJIB2 

»#«#»D5« 
•SCNJIB 



El • . 

» END 
OF 
JIB 
CHAIN 



RSTSTD1 .«. 

Fl ». 
.• DOES ». 
.*JIB CONTAIN*. NO 
•STORED STANDARD*... 
». LUB .• 



MOVE STORED 

STANDARD LUB 

TO SSTDLUB 

FROM JIB 



•SET STORED STD 

• LUB FLAG OFF 

• IN JIB+2 

• -BIT 0- 



Jl «. 
.• ENTRY ». 

.♦ FROM THE •. NO 
.RESET ROUTINE 



RETURN TO 

RESET ROUTINE 

• K2 



GETJIBSW ON=CH, 

OFF=LH. 

THIS SWITCH SET 

ON BY ASSGN 

ROUTINE. 



##«G2»»»*«»»« 

RETURN TO 

CALLING SEQ 



• H2 
THE SWITCH, RESETSW, IS ON 
IF ENTRY WAS FROM THE RESET 
ROUTINE. THE RESET ROUTINE 
IS USED FOR RESET STATEMENT 
PROCESSING AND AS A SUB- 
ROUTINE FOR DVCDN STATEMENT 
PROCESSING. 



COMPUTE ADDR 
OF FREE JIB 
CHAIN START 



END 

OF JIB 

CHAIN 



•SAVE JIB ADDR, 

• OF FIRST JIB, 

• IN WRKRG4 

• FROM P0INT3 



IS 

RETSW 
ON 



GETJIB1 

*»«»»H4*»»**«»« 

• LOAD REG 

• P0INT3, WITH 

• ADDRESS OF 

• NEWLUB 



YES .* SW 

GETJIBSW 

*. ON 

». «E3 .* 



*K2 
RETURN IS TO THE RESET ROUTINE 
BY BRANCHING TO THE ADDRESS IN 
LINKR3+4. THE ADDRESS OF 
RSTSTD4 IS SET IN LINKR4 AS A 
RETURN TO THIS SUBROUTINE. 



LOAD REG 

P0INT3 WITH 

ADDRESS OF 

LUBAD 



COMPUTE ADDR 

OF NEXT JIB 

IN CHAIN 



END ♦. NO 
OF JIB 

CHAIN .« 



•♦•»F5»*»»««*»» 
MOVE FAVP TO 
CHAIN BYTE OF 

LAST JIB 

IN CHAIN 



MOVE JIB 

POINTER OF 

FIRST JIB IN 

CHAIN TO FAVP 



»**#H5*»«»*«*«» 

MOVE END OF 

CHAIN FLAG TO 

LAST JIB IN 

NEW CHAIN 



• LOAD THE ADDR * 

• OF 1ST JIB IN * 
•CHAIN IN P0INT3* 

• FROM WRKRG4 * 



»»»K5»«*«#«»» 

RETURN TO 

CALLING SEQ 
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Chart CS- $JOBCTLD - Miscellaneous Subroutines (Part 2 of 5) 
Refer to Chart 06. 



SFPPE 



LOCATION SLADD 
CONTAINS POINTER 
TO THE 
FOLLOWING LUB. 



»**«BL*«»**»** 

MOVE THE PUB 
POINTER TO 
LUBCOM FROM 
NEWLUB FOR 
COMPARISON 



»*»*B2» •#♦»#*»• 

CALCULATE 

PREVIOUS LUB 

ADDR. AND 

STORE PJIBAOD 

*A4 



TURN OFF 

PRIMARY EQ 

SWITCH 



•SET SWITCHES 

RETSW - ON 
» LIOSW - OFF 



SFPPE2 

#**»#D1*»*»»#»»»» 

* SET WRKRG2 * 
•TO A 1 TO START* 

• SCAN AT * 

# BEGINNING OF * 

♦ LUB TABLE ♦ 



SFPPE02 

»«*««E1»»»«««#«»» 

• STORE SCAN » 
•CONTROL CHAR IN* 

• CTYPE FROM * 

• WRKRG2 • 



MOVE LUB TO 

WORK AREA 

JIBCHN 



.* END «. 

NO .*OF LUBS OF ♦. 

...#. THIS 

• . CLASS .» 



C2 •. 
.• IS *. 

$$BLSTIO 
TRANSIENT 
. ACTIVE . 



CLEAR OUTPUT 

AREAS TMODE 

AND TCMNT 



E2 ». 

LIOSW ON 



•*#«F2»««*»«» 

• RETURN TO 

• CALLING 
•SEQUENCE • 



*G2 
THIS RETURN TO 
THE CALLING SEQ 
INITIALIZES LINKR4 
TO RETURN 
CONTROL IN LINE. 



SFPPE5A 
SFPPE5 .*. 

C3 •• 
.* DOES •. 
NO .• THIS LUB •. 
...•HAVE EQUAL PUB. 
•• POINTER .* 



• RETURN TO • 

• CALLING • 
•SEQUENCE »G2* 



$$BLSTIO 
TRANSIENT 
. ACTIVE . 



.« IS ». 

• THERE A * 

PUB ADDR IN 
•. OLD PUB .* 



SET FREE PUB 

FLAGS IN PUB 

+ 7, BITS 5-7 

OFF 



•INCR CLASS BY 1* 
« -POINT1 * 
•EQ POINT1 + 1- • 



• E3» 
SFPPE3 



CLEAR OUTPUT 

AREAS TMODE 

AND TCMNT 



X 

• RETURN TO * 

• CALLING * 
•SEQUENCE *J2* 



THIS RETURN TO THE CALLING SEQUENCE IS MADE 
WHEN THE END OF THE LUBS IS DETECTED. LINKR4 
IS NOT INITIALIZED TO RETURN CONTROL. 
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Chart CT. $JOBCTLD - Miscellaneous Subroutines (Part 3 of 5) 
Refer to Chart 06. 



*A2 
CS-G3 OR FROM 
THE CALLING SEQUENCE 
WHEN LINKR4 HAS BEEN 
LOADED WITH THE 
ADDRESS OF SFPPE12. 



♦SET THE STD» 

* ASSIGNMENT 
FOUND SWITCH 

* STDFOSW, 

* ON. * 



»««**C1«*»»»*«**« 

•SAVE THE STORED* 
•STANDARD LUB IN* 

* SSTDLUB FROM * 

* BYTES AND 1 * 

* OF JIB * 



♦TURN OFF STD 
* FOUND SW, 
* STDFDSW. 



SFPPE8 

•»«**DL* 
•SCNJIB 



*D2 
RETURN 

FROM THE CALLING 
SEQUENCE WHEN LINKR4 
HAS BEEN LOADED WITH 
THE ADDRESS OF SFPPE8 



$$BLSTIO 
TRANSIENT 
. ACTIVE . 



•##B3******** 

MOVE CHARS, 

ALT, TO THE 

COMMENTS 

WORKFIELD 

TCMNT 



* ENTERED «. NO 
FROM LISTIO .*... 
*. ROUTINE .* 



•♦•D3******** 

RETURN TO 

CALLING SEQ 



..* DOES *. 
* THIS LUB « 

HAVE EQ PUB 
*. POINTER .* 



SFPPE13 

**«»#C 4* ♦♦*♦♦*♦♦ 

* MOVE THE 
♦CURRENT LUB. TO 

* JIBCHN FROM 

* LUBCOM FOR 

* ALT SCAN 



El *. 

END 

OF 

JIBS 

"♦NO 



Fl *. 
.* IS *. 

$$BLSTIO 
TRANSIENT 
. ACTIVE . 



CLEAR OUTPUT 

AREAS TMODE 

AND TCMNT 



FPPE8A .*. 




HI * 




.♦ DOES 




.♦JIB CONTAIN 


*. STORED 




*. STD 




*. LUB 


* 



E2 ♦. 

♦ IS ♦ 

THE STD 

ASSGN 

FOUND 

*.SW ON.* 

***YES 



**.##F2****»****» 
•MOVE THE STORED* 

• STD LUB FROM • 
•SSTDLUB TO THE • 

• WORK AREA • 
♦JIBCHN FOR CMP • 



.« IS ». 

$$BLSTIO 
TRANSIENT 
. ACTIVE . 



»##H2******** 
MOVE CHARS 
STD, TO THE 

COMMENTS 

WORK FIELD 

TCMNT 



*«#»»F3»********« 

* LOAD LOGICAL * 
♦UNIT TAPE, SCAN» 

* CONTROL CHAR * 

* IN WRKRG2 AND * 

* DOUBLE IT • 



Jl *. 

♦ DOES • 

JIB 

CONTAIN 

AN ALT 

*. ASSGN.* 

**YES 



*J3 
THIS RETURN TO THE 
CALLING SEQUENCE 
INITIALIZES LINKR4 
TO RETURN CONTROL 
TO SFPPE8. 
CHART CT-D1. 



THE FREE JIB ADDRESS IS LOADED 

IN WRKRG4 FROM P0INT3. 

THE JIB TABLE ADDRESS IS SUBTRACTED 

FROM WRKRG4 LEAVING THE FREE JIB 

DISPLACEMENT IN WRKRG4. 

THE DISPLACEMENT IN WRKRG4 IS DIVIDED 

BY 4 TO DEVELOP THE FREE JIB POINTER. 

THE RESULTANT POINTER IS STORED IN 

FAVP FROM WRKRG4. 



SFPPEL5 

#«»**D4* 
•SCNJIB 



GET 

ADDRESS OF 

JIB 



END 
OF JIB 

CHAIN 



MOVE THE 

LUB TO LUBCOM 

FROM 

JIBCHN 



LOAD THE 

ADDRESS OF 

THE FAVP IN 

WRKRG3 



♦•»«H4**«»«»*^ 

COMPUTE FREE 

JIB POINTER 

AND STORE 

IN FAVP 

• K2 



RETURN TO 

CALLING 
SEQUENCE 



J4 •. 
.* DOES *. 
JIB CONTAIN*. YES 
A STORED .*.... 


SFPPE17 

♦ZERO THE FIRST * 
....X* THREE BYTES * 


ALT .* 

*. LUB .* 


* OF THE JIB • 



•ZERO THE FIRST 

• THREE BYTES 

• OF THE JIB 



* Jl* 
SFPPE03 
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Chart CU. $JOBCTLD - Miscellaneous Subroutines (Part 4 of 5) 
Refer to Chart 06. 



UNPA 



•*A3«**«*» 
UNANENT 



*»A4*«»*« 
PIKCPL 



**A5****** 
PIKFLG7X 



*»*»*Bl»******* 

* LOAD WRKRG3 
•WITH THE ADDR. 

* OF LUB TO BE 

* ASSIGNED 

* FROM LUBAD 



UNPA3 

*«**»B2******** 

* INITIALIZE 

* 5STDLUB 

* FOR UNASSIGN 

* -X'FFFF'- 



SAVE THE 
LUB IN 
LUBCOM 



*#»*C2***»* 
• UNPA1 



**»*D1******** 

LOAD WRKRG3 

WITH ADDRESS 

OF LUB TO BE 

ASSIGNED 

FROM LUBAD 



» SET LIST 

I/O SW LIOSW 
* OFF 



UNANENT X 

*#***B3********* 

* ZERO WRKRG4. 

* LOAD THE ADDR 

* OF LUBCOM IN 
» WRKRG3 

* *K3 



»*B4***«*»* 
♦ TURN ON * 

♦ALL BITS -FF 
IN MASK BYTE 

*OF IMMEDIATE 
♦INSTRUCTION* 



•»B5******* 
» SET THE * 

* MASK BYTE 
TO HEX 07 IN 

• IMMEDIATE 
•INSTRUCTION* 



COMPUTE PUB 

POINTER IN 

WRKRG4 



SAVE PUB 

POINTER IN 

OLDPUB 



»C5*»**» 
PIKFLG 



PIKFLG X 

»*D5******* 
• SET THE • 

• MASK BYTE 
• TO 00 IN THE 

• IMMEDIATE 
♦INSTRUCTION* 



SFPPE3 

*»*«*E3* 
•GETLAN 



COMPUTE LUB 

ADDRESS AND 

NO. IN CLASS 



GET THE PROG 

INTERRUPT KEY 

IN WRKRG1 



••**F1****»«*«* 

MOVE CONTENTS 

OF SSTDLUB 

TO CURRENT 

LUB 

*J3 



*CS * 
* Dl* 

SFPPE2 



**»»F4********* 

COMPUTE PUB 

FLAG FOR 

BGf F2, OR Fl 

OWNERSHIP 

*F5 



*F5 

BG F2 Fl 

PIK = 10 20 30 

FLAG= 04 01 02 



PICK UP MASK 

FOR OWNERSHIP 

FLAG 



»*««G4*****»»* 

EXCLUSIVE OR 

FLAG INTO 

MASK OF THE 

INSTRUCTION 



SET EITHER 
BG, F2, OR Fl 

OWNER FLAG 
IN PUB MASK. 



ZERO 

REGISTER 

P0INT1 



IF ENTERED AT UNPA1 
THE LUB IS TO BE 
UNASSIGNED AND 
SSTDLUB CONTAINS 
HEX FFFF. 

IF ENTERED AT UNPA THE 
LUB IS TO BE ASSIGNED 
AND SSTDLUB CONTAINS 
THE STORED STANDARD 
ASSIGNMEMT-IF NONE 
X'FFFF'. 



*K3 
WRKRG3 CONTAINS THE 
ADDRESS OF LUBCOM. LUBCOM 
CONTAINS THE OLD LUB 
THAT IS TO BE USED BY 
THE SUBROUTINE CHKASG3. 
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Chart CV. $JOBCTLD - Miscellaneous Subroutines (Part 5 of 5) 
Refer to Chart 06. 



•Al»**«» 

SCNLUB 



»A2»**»» 
SCNJIB 



CHKOPN 



SET SWITCH 

EOLSW ON, 

TO INDICATE 

•END OF LUBS» 



*»*«C1*«»**»«»« 
LOAD THE NO. 

OF LUBS OF 

THIS CLASS TO 

BE CHECKED, IN 

WRKRG3 



*«E1 

•SET SWITCH 
EOLSW OFF, 
tNOT END OF 
LUBS- 



##»#F1»»««*»«* 
LOAD WRKRG4 
WITH ADDR OF 
NEXT LUB TO 
BE CHECKED 
FROM SLADD 



MOVE THE LUB 

TO WORK AREA, 

JIBCHN 

-2 BYTES- 



«*#*«H1«»««»*»*» 
•INCR WRKRG4 TO 

• POINT TO NEXT 
•LUB. SAVE THIS 

* ADDR IN SLADD 



•DECR WRKRG3 BY 

• 1 TO INDICATE 
•NUMBER OF LUBS 

• REMAINING AND 

• SAVE IN SNICL 



RETURN TO 

CALLING SEQ 

*K2 



• IS •. 

THERE A • 

JIB 
POINTER .• 



• COMPUTE ADDR 

• OF JIB. - JIB 

• POINTER X 4 
•PLUS JIB TABLE 
» ADDR- 



#»*»»D2*»*»***«* 

• MOVE STORED 

• LUB TO JIBCHN 
•FROM JIB BYTES 

• AND 1 



INIT DFB CTR 

TO 6 IN REG 

POINT2 



CHKOPN1 X 

###»#C3»»«»»«»» 
» LOAD POINT1 

• FROM P0INT2 

• AND MULTIPLY 

• POINT1 BY 4 

• »E4 



• LOAD THE, ADDR • 

• OF DFB TO BE • 

• CHECKED IN • 
•POINT1 »E4» 



##«*E2«**»»*»* 

RETURNING TO 

CALLING SEQ 



*«««#E3««"*«*"« 

* LOAD LUB » 
♦POINTER FOR THE* 

* ASSOCIATED" LUB • 

* IN WRKRG3 • 

* »F4 • 



CHECK ASSIGN- 
MENT FOR THIS 
UNIT 



.« IS 

LUB 
•.ASSIGNED 



H3 •. 
.• IS •. 

.• THE X»FB ». YES 
.FOR THIS DEV..»..X 
♦. COMPARE .» 
*. CUU .* 

'•NO 



SET OPEN FLAG 

OFF IN DFB 

FLAG BYTE 



LAST • 
DFB 
CHECKED .« 



SET SYSLOG 

ASSIGNMENT 

SWITCHES 



# *RETURN*TO 
CALLING SEQ 



*E4 
THE RESULT IS AN INDEXING VALUE 
IN REGISTER POINT1 USED TO SELECT 
THE CORRECT DFB ADDRESS. 
THE DFB'S ARE CHECKED IN THE 
FOLLOWING SEQUENCE LGO, LGI , 
LNK, LST, IPT, AND RDR. 



LUB 


POINTER 


DFB 


. 08 




LGO . 


. OA 




LGI . 


. 10 




LNK . 


. 06 




LST . 


. 02 




IPT . 


. 00 




RDR . 



*K2 
IF THE LAST PUB OF A CLASS 
HAS BEEN PROCESSED, RETURN 
IS TO THE ADDRESS IN LINKR1. 
IF MORE LUB'S ARE TO BE 
PROCESSED, RETURN IS TO 
LINKR1+4. 
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Chart CW. $JOBCTLD - SYSXXX Operand Processor 
Refer to Chart 06. 



SYSXXX 



SAVE SCAN POINTER 
P0INT1 IN PGINT2. 
WRKRG2 EQ 0. 
WRKRG3 EQ TABLE 
ADORESS LESS 5 BYTES. 
WRKG4 EQ END OF TABLE 
ADORESS. 



RESTORE THE SCAN 
ROUTINE POINTER 
POINTli FROM POINT2. 
INCREMENT POINT1 BY 
3 BYTES TO POINT TO 
XXX OF SYSXXX. 
SET POINT3 TO A 2 
TO INDICATE A PARA- 
METER LENGTH OF 3. 



»#»**A4********** 

* SET REGISTERS .» 
•FOR THE NUMERIC* 
♦CONVERSION SUB * 

* ROUTINE * 

* *A3 * 



#»»*»A5*»******* 

* SAVE SYMBOLIC 

* UNIT ADDRESS 
•IN CLAORD FROM 

* P0INT1 AND 

* WRKRG2 



• OPERAND 

START WITH 
». SYS 



»#«*«C1*» *»»«»»• 

* LOAD REGISTER 

* P0INT4 WITH 
•THE ADDRESS OF 

* THE 1A4ND 

* ERROR MSG RTN 



*C3 
WRKRG2, ORDER WITHIN A 
CLASS, TIMES 2 PLUS THE 
VALUE IN FOCL, ADDRESS OF 
THE FIRST UNIT IN THE 
CLASS, EQUALS LUB ADDRESS 
OF SPECIFIED UNIT. 



SYSXXX1 

» INIT REGS 

• FOR SYS TABLE 

• LOOK UP 

• *A2 



• INCREMENT 
•TABLE POINTER, 

• WRKRG3, BY 5 

• TO POINT TO 

• NEXT ENTRY 



• *«*G1**»**«" 

SAVE 

DISPLACEMENT 
FROM WRKRG2 
IN WRKRFLD2 



.CHAR .* 
'•YES 



• IS • 


. NO 


UNIT 




•. SYSOUT .* 














♦ YES 






< 




*»*F3»»**«*«» 




SET 




DISPLACEMENT 




IN WRKFLD2 




TO 0002 FOR 




SYSPCH 


• 




X '. 



»»«G2*«««»»» 

INIT FOR 

PROCESSING 

SYSIN 

♦ K3 



SYSXXX01 

*##*#G3«««*»«»««« 

* SET LOGICAL » 
•UNIT TYPE FROM • 
•TABLE, ARGUMENT* 

* PLUS 3 BYTES, • 

* IN NEWTYP • 



SET P0INT1 TO » 

A 1 TO INDICATE* 

PROGRAMMER • 

CLASS * 



• COMPUTE LUB • 
•ADDRESS AND N3.» 

• IN CLASS *H3 • 



»*#*»F4«*****««** 

* LOAD WRKRG2 * 
•WITH THE BINARY* 
•VALUE OF XXX TO* 

* BE USED AS A * 

* DISPLACEMENT * 



HEX 8000 IS 
MO\fED TO THE 
FIELD NEWTYP 



I-NCREMENT 
DISPLACEMENT, 
WRKRG2, BY 1 



INIT P0INT1 

TO ZERO FOR 

SYSTEM CLASS 



* COMPUTE LUB • 
•ADDRESS AND NO.* 
•IN CLASS *H3» 



•##«#K2**»*»*»»» 

• RESTORE CLASS 

• -LOGICAL UNIT 
•TYPE-IN WRKRG2 
» FROM WRKFLD2 



THE LUB ADDRESS OF THE FIRST UNIT OF A CLASS 
IS RETURNED IN THE FIELDS FLOC AND SLADD. 
THE NUMBER IN CLASS FOR THE SPECIFIED UNIT 
IS RETURNED IN THE FIELDS NQC AND SNICL. 



COMPUTE 

ADDRESS OF 

CLB LUB 




• COMPUTE LUB 
» ADDRESS OF 
•SPECIFIED UNIT 
•IN WRKRG2, AND 
•LUBAD 



C3* 



•••••E5*»«* *«•••• 

♦INIT REGISTERS * 

* WRKRG3 AND * 

* WRKRG4 FOR • 

* THE -CHKASG3 * 
♦SUBROUTINE »J3» 



WRKRG3 CONTAINS LUB. 
ADDRESS OF UNIT 
WRKRG4 IS ZEROED. 



WRKFLD2 EQ 
NEWTYP EQ HEX 
0003. 



WRKRG4. 
.REGISTER P0INT4 IS 
RESTORED AS A POINTER 
TO THE INVALID STATE- 
MENT ERROR ROUTINE. 



*K4 
THE BINARY VALUE OF XXX 
MUST BE EQUAL TO OR LESS 
THAN THE NUMBER OF 
PROGRAMMER UNITS AS 
SPECIFIED IN NOC, THE 
NICL VALUE. 



COMPUTE PUB 

POINTER IN 

WRKRG4 



#«*#.G5********«» 

* SAVE PUB » 

* POINTER AND * 

* RESTORE * 
•REGISTER P0INT4* 

* *J4 * 



*#H5******* 

RETURN TO 

CALLING 

SEQ 



FOUND BY SUBTRACTING 
(PIK/8) FROM THE PIBX 
ADDRESS. IF ASYNCHRONOUS 
PROCESSING IS NOT 
INCLUDED, WRKRG2 IS 
INCREMENTED BY 16 
TO OFFSET THE 
EXCLUSION OF AN 
ALL BOUND PIBX. 
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Chart CX. $JOBCTLD - EXCP Subroutines 
Refer to Chart 06. 



EXCP 



EXCPROG 



SAVE RETURN 

ADDRESS IN 

LINKSA 



MOVE DENSITY 

FROM PUB TO 

SET MODE 

CCW 



MOVE DENSITY 

FROM PUB TO 

SET MODE 

CCW 



#»»*C1«*«««*«» 

UPDATE SYSIN 

DIF 

-IJSYSIN- 

•C2 



.STORE CCW ADDRESS 

IN DTF+8 FROM 

REGISTER 0. 
.STORE SYMBOLIC 

UNIT ADDRESSt CLASS 

AND ORDER, IN 

DTF+6 FROM 

REGISTER 1. 



•MODIFY SET » 
» MODE CCW 
FOR STANDARO 



•RELEASE SYSTEM 

• AND SET SYST 

• MASK TO HEXFF 



WRITE 
TAPEMARK 
. COMMAND 



•♦»»E1»»»*»»*«»»* 
SVC 
* EXECUTE • 
SPECIFIED 
• I/O » 




"x 




X 
Fl**"«. 

.«* *«. NO 

♦.I/O COMPLETE .* 


*»«»F2****«*««» 

• SVC7 • 
...X» WAIT FOR I/O •.... 

• TO COMPLETE » 



»»E4»*«»»»» 

SET CHAIN 

BITS OFF 

IN CCW 



EXCPROG4 X 

»*«#*F4*«***«* 

• INITIALIZE 

• REGISTER 

• FOR EXCP 

• *F5 



EXCPROG3 

**««*E5******* 

• SET CHAIN 

• BITS ON 

• IN CCW 



• F5 
1. SYMBOLIC UNIT ADDRESS, 
CLASS AND ORDER IS 
STORED IN REGISTER ONE 
FROM POINT1. 
2. CCW ADDRESS IS 

STORED IN REGISTER 
ZERO. 



* SEIZE SYSTEM 

• AND SET SYST 
•MASK TO HEX FF 



EXECUTE 

SPECIFIED 

I/O 



•••••Hl«*«»»»»»» 
•RESTORE RETURN 

• ADDRESS IN 

• LINKR1 FROM 

• LINKSA. 

•**•*••••••*•*•• 



••••Jl»*»tt«»ft 

• RETURN TO 

• CALLING 

• SEQUENCE 



••H4»*»»»** 
RETURN TO 

CALLING 
SEQUENCE 
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Chart CY. $JOBCTLD - Error Subroutines 
Refer to Chart 06. 



*A2 
CA-J3 
CB-D1 
CH-E2 
CL-E3 
CP-E1.K1 



»*#B1*»*»*» 

POINT TO 

ERROR 

MESSAGE 

-1A4ND- 

*F1 



»»B2**»*»* 

POINT TO 

ERROR 

MESSAGE 

-1A2N0- 

*F1 



TXCUU1+8 X 

##*»«B3*»**»* 
» POINT TO 

• ERROR 

• MESSAGE 

• -1A5ND- 

• «F1 



*#B4»*«»*» 

POINT TO 

ERROR 

MESSAGE 

-IA7ND- 

• Fl 



• C2 
CA-F5 
CB-C5 



C3 




CC-E3 




CD-J1,D5,E5 




CE-A5,B2tCl»Kl 




CG-J2iK2 


»C4 


CH-Cl,C2,Gi,G2,H2,J2,K3 


CG-E3 


CJ-H4 


CR-E4 



POINT TO 

ERROR 

MESSAGE 

-IA9ND- 

»F1 



• »*»*C5«"***"*« 

•SAVE POINTER TO* 
» MESSAGE TO BE * 

* DISPLAYED IN • 

• WRKFLD1 FROM # 

* P0INT1 * 



##D1»»***» 

POINT TO 

ERROR 

MESSAGE 

-1A6ND- 

•Fl 



•*D2*»*»»* 

POINT TO 

ERROR 

MESSAGE 

-1ALND- 

*F1 



POINT TO 

ERROR 

MESSAGE 

-1A0ND- 



POINT TO 

ERROR 

MESSAGE 

-1ASN0- 



• El 
CA-F2 
CH-D4 
CL-G3 
CW-D2 
ED-F3 



MESSAGE . 


DESCRIPTION 


LAOND 


INVALID I/O ASSIGNMENT 


LA1ND 


CONFLICTING I/O ASSIGNMENT 


1A2ND 


INVALID DEVICE TYPE 


1A3ND 


NO FREE JIBS 


IA4ND 


INVALID LOGICAL UNIT SPECIFIED 


1A5ND . . 


DEVICE NOT DEFINED 


1A6ND 


UNIT CURRENTLY UNASSIGNABLE 


1A7ND . 


INVALID DEVICE STATUS 


1A9ND 


SYSTEM FILE NOT CLOSED 



*#*#*E5»**»*»*»* 
•LOAD WRKRG3 AS 
•POINTER TO LOG- 
ICAL TRANSIENT 

• BUCKET IN THE 

• ATTENTION PIB 



#*»«F5* 

MODIFY PSW IN 

SAVE AREA TO 

FORCE RETURN 

TO ERRRTN2 



#*»#H5*«»«*»#»* 

* SVC U-SIMULATE» 

* RETURN FROM B * 

* TRANSIENT • 



ERRRTN2 

#*#*»J5« 
•MTNCNT 



ERROUT GOES 
TO ERRRTN IN 
ROOT PHASE 
VIA THE BRANCH 
VECTOR TABLE. 



ERRRTN1 

• RESTORE REG, 

• P0INT1, WITH 

• POINTER TO 
» MESSAGE TO 
» BE DISPLAYED 
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Chart DA. $JOBCTLF - LISTIO Statement Processor (Part 1 of 
Refer to Chart 07. 



5) 



• MOVE THE ADDR * 
•OF THE SYS UNIT» 
•TABLE, SYSTABLE,» 

• TO THE TRANS • 

• LOC. TASYSTAB • 



• A3 
DB-J3 
DC-G1 
DE-H4 
DJ-G£ 



LIOEOJ X 

#»»##A4******** 

• RESET LINE 

• COUNT TO 

• ZERO WRKRG3 

• »F2 



ENTEREO FROM $$BLSTI0 
SUBROUTINES AS AN ERROR 
EXIT. P0INT4 IS USED 
AS A BRANCH REG. 



LISTIO X 

••♦••Bl**» 
•INITL 



INITIALIZE 

FOR 
RELOCATION 



DETERMINE 
TYPE OF 
OPERAND 



• LOAD POINT* • 
•WITH ERROR EXIT* 

• TO BE USED IF • 

• $$BLSTI0 IS • 
♦LOADED «F2» 



• * # 

• D2» 



THE OPERAND IS ANALYZED AND CONTROL IS 

TRANSFERRED TO THE CORRECT PROCESSING 

ROUTINE USING TABLE A. 

REGISTER POINTl CONTAINS THE 

LOGICAL UNIT CLASS POINTER. 

REGISTER WRKRG2 CONTAINS THE 

LUB COUNT. 



•SAVE THE BRANCH* 
•TABLE DISPLACE-* 

• MENT IN LOC • 

• COUNT FROM • 

• WRKRG3 • 



X 

#»C4**«**»» 
• SET THE • 

• B-TRANSIENT 
•ACTIVE SWITCH, 

• TRANSW,OFF 



TNVSERR X 

*#**#B5 •••»*••**• 

♦ LOAD WRKRG3 • 
•WITH THE BRANCH* 
♦TABLE DISPLACE-* 

♦ MENT OF THE ♦ 

♦ NVSERR RTN ♦ 



SET 

•ONLY WAIT' 

SWITCH 



El ». 
.» DID *. 

.• A BLANK • 
•.END THE SCAN 
• . .* 


NO 
• • . . . 


"'•YES 


X 

*•#• 

• BM 

• C2 

• • 


. 


• 


X 

#»#«*F1«»*»»»«»»» 

* SAVE POINTl • » 

• IN WRKFLD3. » 

* POINTl IS THE • 
•POINTER TO THE • 

♦ OPERAND • 



• «C5"***« 

SVCBTRNS 



SVCBTRNS X 

».D5»*»»«*« 

• SET 

♦ TRANSIENT 
• ACTIVE 

• SWITCH 

♦ ON 



X 
•••♦#E5*^ ****«•• 

♦ LOAD REG1 

* WITH ADDR OF 

• THE TRANSIENT 
•NME, $$BLISTIO. 



•»*»»G1 ••»•*••••• 
« LOAD LINKR2 • 

• WITH RETURN • 

• ADDRESS TO BE • 
» . USED BY • 
»$$BLSTIO «G2« 



IF THE $$BLSTIO TRANSIENT HAS BEEN 
LOADED, LIOEOJ IS THE NORMAL EXIT 
FROM THIS PHASE AND TNVSERR IS 
THE INVALID STATEMENT ERROR EXIT. 



LINKR2 IS USED BY THE $$BLSTIO 
TRANSIENT TO RETURN CONTROL TO 
THE CALLING ROUTINE AT THE 
LABEL RETADD. 



RESET 

•ONLY WAIT' 

SWITCH 



•••G5«*****»* 

SVC-2 FETCH 
$$BLISTIO 
CHART JA 



RETADD X 
*»#»*J1«* 
•MTNCTN 

♦~sIize~system" 
♦and set system 
•mask to hex ff 



BK*, 



.OPERAND 


. ROUTINE 


. CHART. 


.SYS 


. LIOL 


. DB-A1. 


.PROG 


. LIOL 


. DB-AlI 


.Fl 


. LIOL 


. DB-A1. 


.F2 


. LIOL 


. DB-A1. 


.ALL 


. LIOL 


. DB-A1. 


.UNITS 


. UNITS 


. DC-A1. 


.CUU 


. LIOCUU 


. DD-A1. 


.DOWN 


. DOWN 


. DE-B3. 


.UA 


. UA 


. DE-B1. 


.SYSXXX 


. LIOSYX 


. DD-B3. 



TABLE B 






.DISPLACE- 
MENT 


I ROUTINE 


Ichart! 


.HEXOO 


.CONTROL 


.BB-B4. 


.HEX1A 


.NVSERR 


.BM-C2. 



•••*«K1 *»*•*•••• 

• MOVE THE 
•OPERAND TO THE 
•TRANSIENT AREA 

• IN LOCATION 

• TARG 
•*«*••*••**•*•*• 



••»*J5»#»»»«»« 

LOAD WRKRG3 

WITH 

DISPLACEMENT 

FROM SAVE 

AREA COUNT 



X 
J4» 



X 

• •«• 

• A2 
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Chart DB- $JOBCTLF - LISTIO Statement Processor (Part 2 of 5) 
Refer to Chart 07. 



•«AL******* 

• SET LIOSW * 

♦ON". INDICATES* 

LIST I/O IN 
* PROGRESS • 



IS 
OPERAND 
SYSXXX 



LI0L1 

*»A3******* 

•SET TPROGSW* 

•ON. INDICATES • 

...X*SINGLE UNIT TO 

• BE LISTED » 



•LOAD LUB COUNT 

* IN WRKRG3 

• FROM WRKRG2 



• ••• 

• CI • 



LIOLL201 

»*»*»C1**«****** 

• SAVE LOGICAL 

• UNIT CLASS IN 

• CLAORD AND 

• LUB COUNT IN 

• LOC. COUNT 



LIOL202 

•**«*DL********* 
•SKIPLN CN 

•~print~a BLANK 

•LINE TO EFFECT 
• LINE SKIP *F5 



COMPUTE LUB 
ADDR AND NO. 
IN CLASS »F5 



•SET LUB COUNT. • 
•NUMBER IN CLASS* 
•AND COUNT CTRL • 
• TO 1 • 



• *»«C3*«***«*" 

PLACE LOGICAL 

UNIT CLASS 

IN CLAORD 



***D3********* 
MOVE LUB ADDR 
FROM LUBAD TO 
SLADD FOR 
SCAN 




«*«*»E1********* 
•LHRTN LD 

» build"h5r for" 
•specified logi- 
•cal unit class 



PRINT HEADER 

FROM BUFFER. 

SKIP 1 LINE 



LIOLL3 

»»##»E3******»«» 
•SFPPE2 DR 

tsCAN"LUB~ TABLE" 
» FOR EQUAL PUB 
• POINTERS 



REENTRY POINT FROM 
THE SFPPE2 SUBROUTINE. 
SEE NOTE «D5. 



»#»*«G1******** 

♦ MOVE HEADER 

* TO BUFFER 



*«*»*H1«**« 
•OUTPUTS 

«-•—«—•-*-.* 



SKIP 1 LINE 



END 

OF LUB 

CLASS 



*»#G3****^*** 
LOAD WRKRG3 
WITH CLASS 
COUNT. LOAD 
POINT1 WITH 
LAST CLASS 



»*«**H3*********' 
•INCR POINT1 TO 

• POINT TO NEXT < 

• CLASS 



##*»A4****»»*» 

LOAD WRKRG3 

WITH ADDRESS 

OF NEXT LUB 

SAVE AREA 

-JIBCHN- 



COMPUTE PUB 
ADDR IN 
WRKRG4 



*-#—#-*• 



PRINT1 

LINE FROM 

BUFFER 



*«»»C4* »»»•••»• 
MOVE PUB ADDR 
TO TRANSIENT 
AREA, TPUBADD 



##«#»D4********** 
•COMPUTE LOGICAL* 
•UNIT NO. WITHIN* 
« CLASS OF « 

* CURRENT LUB. » 

* STORE IN TLUN * 



LOAD LINKR2 

WITH THE 

ADDRESS 

LI0L4 



X 

«*•• 
* • 
D5* 



EXIT IS TO SFPPE2 

AT THE ADDRESS 

SPECIFIED IN LINKR4 

LINKR4 IS LOADED 

EACH TIME SFPPE2 

RETURNS CONTROL TO 

LI0L4. 

LINKR2 IS LOADED 

IN THIS ROUTINE TO 

FORCE A RETURN TO 

LI0L4. 

SFPPE2 IS LOCATED 

AT CHART DR. 



•••••E4********* 
♦MOVE PUB POINT- 

♦ ER TO TJIBCHN 

♦ IN TRANSIENT 
♦AREA FROM CURR 

♦ LUB SAVE AREA 



•»«*»F4********** 

* LOAD SYMBOLIC * 
•UNIT ADDR, CLASS* 

• AND ORDER* IN * 
« REG POINT1 • 



• F5 
THE CODING FOR THIS 
ROUTINE ACTUALLY 
APPEARS IN THE SJOBCTLF 
PHASE. THE CHART 
REFERENCED IN A 
DIFFERENT PHASE 
REPRESENTS LOGIC 
IDENTICAL TO THAT 
FOUND IN THE 
SJOBCTLF PHASE. 



BUILD A PRINT 

LINE IN WORK 

AREA 



-CMNT CHNL— UNIT MODE 



NO 


• 


END 


.. .* 




OF LUB 






TABLE 








X 




• • •• 






• YES 








CI • 






• 




X 


t*«* 




• ««** 
*DA • 

• A4« 
• • 

LIDEOJ 



BUILD PRINT 
LINE IN 
BUFFER 



X 

A5 
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Chart DC. $JOBCTLF - LISTIO Statement Processor (Part 3 of 5) 
Refer to Chart 07. 



UNITS 
UNITS1 X 

•SKIPLN CN 

• >RINT A BLANK 
•LINE TO EFFECT 
•A LINE SKIP «A4 



•BUILD PHYSICAL 

* UNIT HEADER 

* IN BUFFER 



PRINT HEADER 

FROM BUFFER 

SPACE 1 LINE 



LOAD PUB 

ADDRESS IN 

WRKRG3 



Kl» 



UNITS401 , 

* CALCULATE PTR 

* TO BG SYSTEM 

* CLASS USING 
*PIK OF CURRENT 

* • PARTITION 



MOVE UA TO 

OUTPUT BUFFER 

+ 23 



UNITS402 

«*»»»B3» 
•GETLAN 



*A4 
THE CODING FOR THIS 
ROUTINE ACTUALLY 
APPEARS IN THE 
SJOBCTLF PHASE. THE 
CHART REFERENCED IN 
A DIFFERENT PHASE 
REPRESENTS LOGIC 
IDENTICAL TO THAT 
FOUND IN THE 
$JOBCTLF PHASE. 



COMPUTE LUB 
ADDR AND NO. 
IN CLASS *A4 



UNITS5 X 


UNITS501 X 


##»#*C3«»«*»*«*»* 


#«#**C4**»»«»*#» 


•SFPPE DR» 


•CLEAR TEMPORARY 




« FIELDS, TMODE 


• SCAN LUB TABLE • 


« AND TCMNT, IN 


» FOR EQUAL PUB * 


* TRANSIENT 


• POINTERS * 


•AREA TO BLANKS 




#**»•*«*«••••*«• 



END 

OF 

LUB 



• •»*E3"««*«*" 

COMPUTE TLUN, 

LOGICAL UNIT 

NUMBER WITHIN 

LUB CLASS 



BUILD PRINT 

LINE IN WORK 

AREA 



• MOVE CHANNEL • 

• AND UNIT TO • 

• BUFFER FROM • 
•TCHNL AND TUNIT* 



INITIALIZE 

WRKRG3 
WITH HEX 20 



*»#C5*«*«»**» 
INITIALIZE 

WRKRG3 
WITH HEX 40 



CALCULATF 

STOP VALUE 

FOR LUB SCAN 



E5 • 

END 

OF 

LUBS 



#*»F1«»»*»»« 

MOVE PUB 

ADDRESS TO 

TRANSIENT 

AREA LOC 

TPUBADD 



Gl • 

END 

OF 

PUBS 



♦ NO 



IS 

DEVICE 

DOWN 



SINGLE 
. ENTRY 


• 


YES 
». . . . 


* . .« 

• NO 






X '. 
#»K1»»*»*«»»** . 
CUU3 DP* 

COMPUTE PUB ~* 

POINTER IN ♦ 

NEWLUB . • 


*X 1 



BUILD PRINT 

LINE IN WORK 

AREA 



BUILD PRINT 
LINE IN 
BUFFER 



BUILD PRINT 

LINE IN WORK 

AREA 



BUILD PRINT 
LINE IN 
BUFFER, 



PRINT ONE 

LINE FROM 

BUFFER 



•****J3**«*««*«« 

• LOAD LINKR2 

• WITH THE ADDR 
•UNITS9 TO CTRL 

• RETURN FROM 

• SFPPE 



IS 

UA IN THE 
. BUFFER . 



#*##*H4**»*»***» 

• INCR PUB ADDR 
» IN WRKRG3 BY 

• 8 TO POINT TO 

• NEXT PUB 



*H5 
THE VALUE IN WRKRG3 IS 
USED TO CALCULATE A 
STOP VALUE, TO BE COM- 
PARED TO -P0INT1- (THE 
DISPLACEMENT FROM 
ENTRY POINT IN 
FICLS AND NICLS). 

WHEN P0INT1, AND 
WRKRG3 ARE EQUAL, 
ALL LUBS HAVE BEEN 
SCANNED. 
SEE FIGURE 7 
IN APPENDIX A. 



• K4 
EXIT TO THE SUBROUTINE SFPPE. 
LINKR4 CONTAINS THE ADDRESS 
WITHIN SFPPE TO WHICH CONTROL 
IS RETURNED. SFPPE IS ON 
CHART DR. 
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Chart DD. $JOBCTLF - LISTIO Statement Processor 
Refer to Chart 07, 



(Part 4 of 5) 



•»#A1»» 

RESTORE REG 
P0INT1 FROM 

WRKFLD3t 
-POINTS TO 

HEX CUU- 



GET DEV TYPE, 

PUB ADDR, AND 

PUB POINTER 



• PRINT A BLANK • 
•LINE TO EFFECT » 
•A LINE SKIP »C4« 



LIOSYX X 

#»B3**»»**» 
SET LIOSW ON* 

* INDICATES 

• LIST I/O IN 

♦ PROCESS 



#»«»#C3»»**«**»* 

• RESTORE REG 

* P0INT1 AS 
•POINTER TO THE 
•SYSXXX OPERAND 



• C4 
THE CODING FOR THIS ROUTINE ACTUALLY 
APPEARS IN THE SJOBCTLF PHASE. THE 
CHART REFERENCED IN A DIFFERENT 
PHASE REPRESENTS LOGIC IDENTICAL TO 
THAT FOUND IN THE SJOBCTLF PHASE. 



•BUILD PHYSICAL 
♦UNIT HEADER IN 
* BUFFER 



CHECK XXX AND 
GET SYMBOLIC 
UNIT ADDR »C4 



PRINT HEADER 

FROM BUFFER 

SPACE 1 LINE 



*»Fl****»ft 

LOAD PUB 

ADDR IN 

WRKRG3 



MOVE PUB, 

8 BYTES, TO 

WRKFLD2 



IS 

UNIT 

SYSOUT 



*»G3******* 

•SET PROGSW • 

ON TO INDICATE* 

♦ PROGRAMMER 

» UNIT • 



MOVE END OF 

PUB FLAG TO 

WRKFLD3 



• DB • 

• Dl* 

LI0L202 



»« 


»»*J1**##*»#«*# 




LOAD REG 




» 


WRKRG3 AS 






POINTER TO 






WRKFLD 




*» 


*K2 


, # * 



»*K1***«»*» 
•SET SWITCH • 

♦ UNSW ON TO * 
•INDICATE SINGLE* 

* ARGUMENT • 



• K2 
WRKFLD2 AND WRKFLD3 ARE CONTIGUOUS. WHEN 
LOADED IN THIS MANNER THEY SIMULATE THE 
LAST PUB IN THE PUB TABLE. WRKFLD3 IS 
LOADED TO POINT TO THE PUB IN WRKFLD2 
INSTEAD OF THE PUB IN THE PUB TABLE. 
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Chart DE. $JOBCTLF - LISTIO Statement Processor (Part 5 of 5) 
Refer to Chart 07. 



SAVE CURRENT 

PUB ADDRESS 

IN TRANSIENT 

AREA LOCATION 

TPUBADD 



* PRINT A BLANK 
•LINE TO EFFECT 
*A LINE SKIP »K4 



+ PRINT A BLANK 
•LINE TO EFFECT 
*A LINE SKIP »K4 



#*#B4*«»»*»«* 

LOAD WRKRG3 

WITH SYSLOG 

LUB POINTER 

HEX 08 



•MOVE UA HEADING* 

• TO BUFFER + 6 ♦ 

• -17 BYTES- • 

• «C2 • 



.#«C3««»**«* 

MOVE DOWN 

HEADER TO 

BUFFER +6 

-12 BYTES- 

• D2 



GET SYSLOG 

PUB ADDR IN 

WRKRG4 



*##«»D1«»»*«»»««* 
» INIT REG * 

• POINT1 TO • 
•BRANCH TO TEST1* 

• FOR UA * 

• PROCESSING • 



•INIT REG POINT1* 

• TO BRANCH TO • 

• TEST2 FOR • 
•DOWN PROCESSING* 



UADN1 

**»##E1«** 
•OUTPUTS 



PRINT HEADER 

FROM BUFFER 

SPACE 1 LINE 



•MOVE SUB HEADER* 
•TO BUFFER + 10 • 
• -14 BYTES- • 



•PRINT SUBHEADER* 

• FROM BUFFER. * 

• SPACE 1 LINE • 



*»»#*H1»**» 

* MOVE 

* **NONE* 
•TO BUFFER 



LOAD PUB 
ADDR IN 

REGISTER 
P0INT2 



IS 
PUB 

DOWN 



BUILD A PRINT 

LINE IN WORK 

AREA 



••#«»J3**»**«*»» 
* CLEAR BUFFER. 
« MOVE CHAN AND 
*UNIT TO BUFFER 
•FROM TCHNL AND 
» TUNIT 



FROM BUFFER 



LOAD CURRENT 

PUB ADDR IN 

WRKRG3 



END 

OF PUB 

TABLE 



• HAVE ANY 

UNITS BEEN 
». LISTED . 



INCR PUB 

POINTER BY 

8 TO POINT TO 

NEXT PUB 



X 

• A4 



PRINT LINE 

FROM BUFFER 

«»NONE*» 



>G5 

REG-P0INT1- 
HAS ADDRESS OF 
TEST1 IF 
PROCESSING-UA, 
OR ADDRESS OF 
TEST2 IF 
PROCESSING-DOWN- 



► K4 

THE CODING FOR THIS ROUTINE ACTUALLY APPEARS 
IN THE SJOBCTLF PHASE. THE CHART REFERENCED 
IN A DIFFERENT PHASE REPRESENTS LOGIC 
IDENTICAL TO THAT FOUND IN THE 
SJOBCTLF PHASE. 
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Chart DF. $JOBCTLF - RESET Statement Processor (Part 1 of 
Refer to Chart 07- 



2) 



RESET 

•INITL 



#«»C1«****»*« 

ZERO WRKRG1 

-LUB COUNT- 

E0 

SYS CLASS 



IS ». NO 

OPERAND 

ALL .* 



• INCR LUB COUNT 

• BY 1 IN WRKRG1 
» -VALUE EQ 1- 



RESET01 

»»»*»D2********* 
•INCR LUB COUNT 
•BY 1 IN WRKRGL 

• -VALUE EQUALS 

• 1 OR 2- 



•DID A BLANK*. NO 

END THE .*... 
#. SCAN .• 



IS 

OPERAND 
SYS 



#*#D3**»*»»* 
SET P0INT1 

FOR 

PROGRAMMER 

CLASS -1- 



*»B4*****»* 
• ASSUME * 

• SINGLE 
OPERAND, SYS 

• XXX. SET 
•PROG SW ON.» 



•RESTORE P0INT1 
» TO POINT 
» TO OPERAND 
• SYSXXX 



IS 

OPERAND 

PROG 



CHECK XXX GET 

SYMBOLIC UNIT 

ADDRESS *Hl 



•IS OPERAND 

SYSIN OR 
*. SYSOUT . 



SAVE POINT1, 

POINTER TO 

OPERAND, 

IN P0INT2 



•SINGLE OPERAND 



SET POINT1 

FOR SYSTEM 

CLASS -0- 



•♦»»G4********* 

LOAD SYMBOLIC 

UNIT CLASS IN 

REG POINTL 

FROM LOC 

CLAORD 



• HI 
THE CODING FOR THIS ROUTINE ACTUALLY 
APPEARS IN THE SJOBCTLF PHASE. THE 
CHART REFERENCED IN A DIFFERENT PHASE 
REPRESENTS LOGIC IDENTICAL TO THAT 
FOUND IN THE SJOBCTLF PHASE. 



»***«H4**»* »»»*«• 
•UPDATE SLADD TO* 

• CURRENT LUB • 

♦ ADDRESS, SET » 

• LUB COUNT TO • 

♦ 1 IN WRKRG1 • 



• CI* 
RESET101 
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Chart DG. $JOBCTLF - RESET Statement Processor 
Refer to Chart 07, 



(Part 2 of 2) 



* Bl 
RESET11 



»A2****»* 
RESET11 



MOVE LUB ADDR 
TG LUBAD FROM 
WRKFLD2 FOR 
RSTSTO SUB- 
ROUTINE 



• A5 
THE CODING FOR THIS ROUTINE 
ACTUALLY APPEARS IN THE 
$JOBCTLF PHASE. THE CHART 
REFERENCED IN A DIFFERENT 
PHASE REPRESENTS LOGIC 
IOENTICAL TO THAT FOUND 
IN THE SJOBCTLF PHASE. 



COMPUTE LUB 
ADDR AND NO. 
IN CLASS *A5 



COMPUTE LUB 
ADDR OF 
SYSLOG 



COMPUTE LUB 
ADDR OF 
SYSLNK 



H4* 



RESET101 

*****C1********* 
♦SAVE LUB COUNT 

* IN LOC COUNT. 

* SAVE LOGICAL 

* UNIT CLASS IN 

* WRKFLD1 



RESET5 

*»»**C2* 
♦CHKASG 



-BANK1, BIT 7- 



RESET2 

* SAVE NO. IN * 

• CLASS AND LUB * 
*ADDR IN WRKFLD2* 
» FROM SLADD * 
» AND SNICL ♦ 



•*A5 MOVE LUB TO* 
*JIBCHN. UPDATE* 
*SLADD AND SNICL* 



X 
A3 



CURRENT 

LUB EQUAL 

. SYSLST . 



F2 *. 

.•STORED *. 
STANDARD 
ASSIGN EQ 

. SYSLST . 



RESET JOB 

CONTROL LINE 

COUNT TO 1 



RSTSTD4 #A5 



*J2 

THE RSTSTD SUBROUTINE 
RETURNS CONTROL TO 
LINKR3+4 IF THE 
SWITCH RESETSW IS 
ON, CHART CT. 



NO .* CURRENT 
X..*. LUB EQUAL 
*. SYSLOG . 



CURRENT 
LUB EQUAL 
. SYSLNK . 



I/O * 
PENDING 
.ON SYSLOG.* 



X 

RESET* 



* RESET LUB TO 

* STANDARD 
•ASSIGNMENT »A5 



STANDARD 
ASSIGN EQ 
. SYSLNK . 




YES 


'•NO 






X 
*#F4******« 

SET LINK * 
OPTION BIT * 
OFF IN * 
JBCSW1 * 
. BIT * 




'.X.... 







* LOAD WRKRG1 
♦WITH REMAINING 

* LUB COUNT 



#«*»F5******** 

RESTORE 

LOGICAL UNIT 

CLASS IN 

P0INT1 AND 

INCR BY 1 



*CR * 

« D2» 

RSTSTD4 *A5 



RESET8 

•♦•#*H3*****«»«* 

* RESTORE LUB 

* POINTER AND 
•COUNT IN SLADD 
*AND SNICL FROM 

* WRKFLD2 



• H4 
THE DVCDN ROUTINE 
USES THE RESET 
ROUTINE AS A 
SUBROUTINE TO RESET 
LUB ASSIGNMENTS TO 
STANDARD. THE SWITCH 
DDSW IS SET ON BY THE 
DVCDN ROUTINE TO 
FORCE CONTROL TO 
BE RETURNED. 



♦RESET OPEN FLAG* 
* IN DFBS USING • 
♦THIS DEVICE *A5» 



♦•A5 MOVE LUB TO* 
•JIBCHN. UPDATE* 
•SLADD AND SNICL* 



.* END #. **** 

.» OF *. YES • 

•.LOGICAL UNIT «*....X* E5 
*. CLASS .* • 



...•. DDSW ON .* 
*. *H4 .* 


X * 

♦ BB ♦ 

♦ B4« 

• ♦ 


• YES 

I*DVCDN2 

. CHART DH-C3 


CONTROL 




X 

. ****K5*«*»»*»*» 
» RETURN TO THE * 
* DVCDN ROUTINE * 
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Chart DH. $JOBCTLF - DVCDN Statement Processor (Part 1 of 2) 
Refer to Chart 07. 



DVCDN 

•••••Bl 
•INITL 



INITIALIZE 

FOR 
RELOCATION 



POINT TO 
OPERAND 
X'CUU* 



UNASSIGN 

SYSLOG. 

-FF TO BYTE 

OF LUB- 



•••C2»****»«* 

GET PUB PTR 

FOR 

SYSLST 

IN 
WRKRG3 



* BUILD COUNT 
» CONTROL FOR 

• LUB TBL SEARCH 



SEIZE 

SYSTEM 

»G5 



SET LUB 

CLASS 

COUNT TO 2 

IN WRKRG1 



DVCDN4 

DVCDN2 

•••♦•C3* 
•LOGCHK 



DID 
BLANK STOP 
. SCAN 



* SET SYSLOG 

* ASSIGNMENT 
*SWS. IN COMREG 



MOVE MSG 
1 1 101 TO 
OUTPUT 

BUFFER 



• MOVE THE HEADER* 

• ♦»NONE«* TO « 
« OUTPUT BUFFER » 

• ASSUMING NO » 

• ASSIGNMENT » 



CALCULATE PTR 

TO BG SYSTEM 

CLASS USING 

PIK OF CURRNT 

PARTITION 



•*»*D5»***** 

SET LUB 

CLASS 

COUNT TO 6 

IN 

WRKRG1 



• GET DEVICE 
•TYPE, PUB ADDR, 

* + PUB POINTER 



»»F1*»»**»* 

GET PUB 

POINTER 

FOR 

SYSLOG IN 

WRKRG3 



F2 ». 

.♦OPERAND* 
EQUAL TO 
SYSLST 
. DEVICE 



OUTPUT RELEASE 
MSG ON * 
SYSLOG 



****E4»******** 

PUT COUNT 

-4 OR 6- FROM 

DVCDN3 RTN IN 

REG P0INT2 




•INITIALIZE REG 

• -P0INT1- TO 
•FOR SYS. CLASS, 

• AND STORE LUB 

• CT. IN COUNT 



DVCDN14A X 
•♦#*#G2**» 
•LSTOUT 




SKIP ONE 
LINE ON 
SYSLOG 



DVCDN14B X 
*»*»»H2*** 
•LOGOUT 



Jl *. 

.•OPERAND* 
EQUAL TO 
SYSLOG 
. DEVICE 



LOG 

ON 

SYSLOG 



*»»*J2 

SET LINKR1 

TO EXIT FROM 

DVCDN3 TO 

DVCDN4 



*K1 



B3 



THE CODING FOR THIS ROUTINE ACTUALLY *•»» 
APPEARS IN THE $JOBCTLF PHASE. THE CHART 
REFERENCED IN A DIFFERENT PHASE REPRESENTS 
LOGIC IDENTICAL TO THAT FOUND IN 
THE $JOBCTLF PHASE. 



* BUILD COUNT • 
•CONTROL FOR LUB* 
» TBL SEARCH * 



• SET EXIT 
♦FROM TRANSIENT 

* TO DVCDN5 



*#*«*K3»«*»**» 
•SVCBTRNS 

• LOAD AND 

• INITIALIZE 

• $$BLSTIO 



DVCDNL 

#**.»F4* 
•GETLAN 



COMPUTE LUB 
ADDR. AND NO. 
IN CLASS «KL 



THE SYSTEM HAS 
BEEN RELEASED 
IN THE SVCBTRNS 
ROUTINE. 



• H5 
RETURN ON AN 
EQUAL OR END 
OF TABLE. 



.» END • 

.OF LUBS THIS 
•. CLASS .* 



DECREMENT 

COUNT, 

INCREMENT 

CLASS 



COUNT *. YES 
EQUAL ...... 

.• 



PRINT THE 
CONTENTS 
OF BUFF. 
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Chart DJ. $J0BCTLF - DVCDN Statement Processor 
Refer to Chart 07. 



(Part 2 of 2) 



SFPPEDQ 



DVCDNS X 

*««##B1**#***»#* 

* MOVE ADDR. OF 

* SYSTEM UNIT 

* TABLE TO 

* B-TRANSIENT 

* $$BLISTI0 



• ••«£].***«<**•« 

CLEAR BUFFER 

MOVE HEADER 

I/O UNIT TO 

BUFFER 



•«*B2»*»»»*« 

STORE DISP 

IN 

TLUN IN 

TRANSIENT 



* TRANSLATE AND 
« CONVERT THE 
*LUB + PUB INFO 



GET POINTER 

TO CURRENT 

LUB 



B4 *. 

.* LAST » 

ITEM ALT, 

STD, OR 

. CURRENT 
». *J4 .* 

**»ALT 



♦#*#«C4***»*»*»»» 

* REMOVE ALT. * 
•ASSIGN FROM JIB* 
» UPDATE JIB * 

• TABLE CHAIN * 



SET UP BUFFER 

WITH LOGICAL 

UNIT, COMMENT 

AND OWNER 

FIELDS 



» D3 
UALUB1** 



» UNASSIGN 
• THE LUB 
#-FF TO BYTE 0- 



#»*C5«*»#»*»» 

GET POINTER 

TO STORED 

STANDARD 

JIB 



•♦«D5*»«*»«« 

UNASSIGN 

THE STORED 

LUB IN JIB 

-FF TO BYTE 

OF JIB- 



#E1**»«* 

MOVE 

-OWNER- 

TO 
BUFFER 




X 


X 


*«**«E2»*«****»*» 


»»E3*«***»* 


♦LOGCHK BG» 


» INDICATE 




« PRIMARY EQ. 


* CHECK SYSLOG » 


« -X'80' INTO 


* ASSIGNMENT * 


» DDSW- 


**«»»*•••*•*»«*•» 


* #H3 



DVCDNC 

•♦•*F1« 
MSGOUT 



OUTPUT 

THE 

MSG. 



• DEQUE THIS * 
« ENTRY IN * 
♦LUB AND JIB »J4» 



B2« 


DVCDN7 X 


DVCDNX X 


* * 


»##*»F4«»»»»*»#»# 






♦GETLAN CM* 




FPPE12 




* RESTORE * 




* COMPUTE LUB * 


* MODE IF « 




* ADDR AND * 


* TAPE * 




» NO. IN CLASS * 





SCAN FOR EQ 
PUB OR END 
OF LUB *J3 



SKIP 

A 
LINE 



DVCDN8 


.*. 






H2 






* END 


NO 




OF 






LUBS 




*. 


*J3 



DVCDN6 

».**»J1. •••»••••• 

•CALCULATE DISP • 
*FROM BEGINNING • 
•OF CLASS IN LUB« 

* TBL FOR THIS • 

• LUB • 



INCREMENT 
CLASS 

DECREMENT 
COUNT 



»H3 
THIS SW IS USED 
TO INDICATE TO 
SFPPE RTN. THAT 
THIS LUB MAY BE 
TEMPORARY AND THERE 
MAY BE A JIB 
ASSIGNED TO THIS 
DEVICE. 



*J3 
EXIT FROM SFPPE 
IS ON EITHER EQ 
PUB PTR. OR END 
OF LUBS. 



»»»»G5*»»*«*»*» 

MOVE 00 INTO 

JOB CTRL FLAG 

OF PUB TO 

INDICATE 

DEVICE DOWN 



♦ A4» 
LIOEOJ 



*J4 
IF A STORED STANDARD IN THE JIB IS 
ASSIGNED TO THIS DEVICE, IT IS 
TEMPORARILY UNASSIGNED (FF TO 
BYTE OF JIB). IF THE CURRENT 
ASSIGNMENT (TEMPORARY OR STANDARD) 
IS ASSIGNED TO THIS DEVICE, IT IS 
UNASSIGNED ( FF TO BYTE OF LUB). 
ANY ALTERNATES ASSIGNED TO THIS 
DEVICE ARE REMOVED FROM JIB TABLE. 



YES 


• 


COUNT 




*. 


EQ 








X 










» 








F5 * 












• •» 
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Chart DK. $JOBCTLF - DVCUP and MAP Statement Processors 
Refer to Chart 07. 



DVCUP 

•INITL 



INITIALIZE 

FOR 
RELOCATION 



POINT TO 
OPERAND 
X'CUU 1 



Dl ». 

* DID « 

A BLANK 

END THE 

SCAN 



B3 *.. 
.* IS • . 

• MULTI- • 

PROGRAMMING 
♦.SUPPORTED.* 



#*#»»C3****»*»*» 

* CLEAR THE I/O 
« BUFFER AND 

• MOVE THE MAP 
« HEADER INTO 

♦ THE BUFFER 



♦««D3*»»**»***»* 
SGOUT BE 

OUTPUT MAP 
HEADER « 
LINE 



GET DEV TYPE, 

PUB ADDR, AND 

PUB POINTER 



LOAD PUB ADDR 

FOR THIS UNIT 

IN WRKRG3 

FROM NEWPUB 



IS 

DEVICE 

DOWN 



»«*«#G3»»*»»»*«** 
* CALL THE PIB • 
•ADDRESS OF THE * 
•PROBLEM PROGRAM* 
•SUPPORTING THE • 
•INTERVAL TIMER « 



PUT PROGRAM 

NAME INTO 

LOCATION 

NAMFLD 



SET UP BG 

AREA 
INDICATOR 



GET END 
ADDRESS 

OF 

BG 



COMPUTE 

NUMBER OF 

BG IK BLOCKS 

• E5 



CONVERT IT 

TO BCD 

OUTPUT F2 



OUTPUT BG 

SET UP F2.F1 

OUTPUT F2 



♦ E5 
CHECK FOR HALFWORD 
OR FULLWORD 
ADDRESSING AND 
THEN DETERMINE 
THE SIZE OF THE BG. 
DIVIDE THE SIZE 
OF THE BACKGROUND 
BY 1024. 



• *H1* 
•MODIFY JOB • 
•CONTROL FLAG 

IN PUB TO 
• INDICATE 
• DEVICE UP • 



Jl *. 
.« IS • 

DEV A 
MAGNETIC 
. TAPE 
•.UNIT .« 



• YES 



•»K1*»*»««* 

•MODIFY JOB • 
•CONTROL FLAG 

IN PUB TO 
• INDICATE 

• STD MODE ♦ 



CALCULATE ♦ 

SUPERVISOR • 

UPPER LIMITS • 



OUTPUT SUPV 

LINE, SET 
UP BG LINE 



» B<+« 
CONTROL 
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Chart DL. $JOBCTLF -. UNBATCH Statement Processor 
Refer to Chart 07. 



DETACHR 



H X 


DETACH2 X 


ACCTUPDT X 


DETACHR X 


•••Bl**«*«««*«* 


•»*«#B2*»»»* 






LOAD ADR * 


» PUT F2 PIB » 


* DECREASE * 




OF NVSERR IN * 


« ADDR IN REG • 


» PARTITION « 


* MOVE POINTER 


A REG * 


* P0INT4 + SET * 


* COUNT BY » 


» TO SYSTEM 


-P0INT4- * 


» PUB MASK FOR » 


« ONE * 


» CLASS UNIT 


* 


* F2 OWNER * 


» # 


• «B5 



• A5 
POINT1 IS 
USED AS A 
DISPLACEMENT 
FROM ENTRY POINT 
IN FICL AND NICL. 



CHECK SYSRDR, 
IPTi PCH. AND 
LST FOR ASSIGNMENT 
TO TAPE OR DISK. 



CI *. 

Fl OR F2 



INPUT 

ON 

SYSLOG 



* IS 
THIS A 
JOB 
STEP 



CLEAR REG 

-POINT1- 

• A5 



* GET FICL AND * 
•NICL FOR Fl AND* 
•F2 «J4» 



♦•••♦Hl«»»*#*»» 
♦DETACHR D 
*-#■«•*-»—*—*-#-» 

* CHECK 

* SYSTEM 

* ASSIGNMENTS 



»**J1***«*«»* 

MOVE BLANK 

TO THE SCAN 

STOPPER LOC 

-SCNSTP 



• IS • 

THIS 
*. Fl .» 


. NO 


• YES 




X 

#««D2»*«*»««* 

PUT Fl PIB 

AODR IN REG 

POINT* + SET 

PUT MASK FOR 

Fl OWNER 


; j 


!x 





ACCTIGN 

*##»»C3* 
•MTNCNT 



RELEASE 

THE 
SYSTEM 



CLEAR BATCH 

MODE BYTE 

15 OF THE 

PIB, BIT ~ 

A 



TO 









.* UNIT 




YES 




ASSIGNED 








TO TAPE 






* 


OR 
•.DISK . 




X 












• NO 




DM • 






• 


B5« 







UNASSIGN ALL 
LUBS FOR THIS 
PARTITION »F5 




«• 


#*«E3«*»»»*»« 


»« 




DETACH 


THIS 






PARTITION 






X'80« 


IN 






BYTE 







• # 


OF PIB 


»« 



G2 •. 
.* JOB ». 

•ACCOUNTING 
INTERFACE 
». SUPPORT .■ 



•••♦H2» 

GET COUNT AND 

ADR OF 

COMMON 

ACCOUNTING 

TABLE 



DETACH3 X 






♦##F3»«»»*»»» 


► * . 


« 


LOAD THE 


• • 




AODR OF A 






NONEXISTENT 






CCB IN REG1 




* 


•G4 


• 




X 












G3 «. 












» TRAFFIC • 


. YES. 




BIT 
•. ON .« 

'•NO 




♦ 














X 




<>»*#H3**»»»»»* 




* 


SVC 7 


* « 




WAIT 










••*••»**»*•*•• 





*»«F4«**»«*** 

RETURN TO 

CALLING SEQ 



THIS IS DONE 
TO INITIALIZE 

A PERMANENT 
WAIT. 



IMMEDIATE 
RETURN IS MADE 
BY FORCING A 
BLANK IN SCNSTP. 



J2 •. 

ONLY '*. YES 

PARTITION .* 

ACTIVE .* 

'•NO 


»»J3«*«»*«* 

• SET NO 

• PARTITION 
..X» ACTIVE SW 

• LEAVE COUNT 

• AT ONE 
•#••*»••••* 


X 

• «•* 

* * 

* B3 • 


X 
• C3 • 



• J4 
THE CODING FOR THIS ROUTINE 
ACTUALLY APPEARS IN THE 
$JOBCTLF PHASE. THE CHART 
REFERENCED IN A DIFFERENT 
PHASE REPRESENTS LOGIC 
IDENTICAL TO THAT FOUND 
IN THE $JOBLTLF PHASE. 
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Chart DM. $JOBCTLF - Error Subroutines and UNA Statement Processor (Part 1 of 2) 
Refer to Chart 07. 



POINT TO 

ERROR 

MESSAGE 

-1A7ND- 



INITIALIZE 

FOR 
RELOCATION 



CI *. 

.♦MULTI- *. 

♦PROGRAMMING* 

ENVIRONMENT 



♦»B2**»**** 
RESET PUB * 
MASK TO » 
•FB« FOR NOT 



LOAD CORRECT 
PIB ADOR. 
IN WRKRG4 



GET ADDR 
OF BUFFER 
IN WRKRG2 



•POINT TO FIRST 

• OPERAND 

• -Fl OR F2- 



END 
THIS 

SCAN 



SCAN 
STOPPED 
.BY BLANK 



NO .* OPERAND 
X....». EQ TO 2 

♦.CHARACT. 



• «C4 

POINT TO 

ERROR 

MESSAGE 

-1A5ND- 

*K3 



♦♦••#D2»*««*»»*** 


*»»**D3*********» 


» INITIALIZE * 


♦ CALCULATE * 


• P0INT2 » 


♦ DISPLACEMENT » 


» FOR F2 * 


♦ FROM POINT OF • 


♦ -CHAR. 2- » 


♦ENTRY INTO NICL* 


?♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦ 


♦AND FICL »K2« 



♦♦♦♦E2******** 

GET F2 PIB 

AND SET PUB 

MASK FOR NOT 

F2 OWNER 



UNA1A 

♦♦♦♦♦E3* 
♦GETLAN 



» COMPUTE LUB 
* ADDR AND 
♦NICL. *H 



POINT TO 

ERROR 

MESSAGE 

-1A4ND- 

• K3 



♦♦♦G2******* 

INITIALIZE 

P0INT2 

FOR Fl 

-CHAR. 4- 



HI *. 
.* 1ST *. 

.» OPERAND * 


. YES> 




**»»»H2******» 

* GET Fl PIB 

• AND SET 


*. OPERAND .» 

*. .* 

**N0 


»* 

* 

* 


) 


* NOT Fl 

* OWNERSHIP 


UNAB X 

♦♦♦♦♦Jl •♦•»•*•• 

• SET UP LINK 
« REG TO EXIT 

• FROM THIS 

• ROUTINE 


X 

J2* "*. 

NO .*"* THIS 
(...♦. OPERAND 
*. Fl 


\ 




*♦»*« *YES 

»BM *■ 

* C2» .X.... 



♦ •♦ 


♦♦F3»* 


»•♦»♦•♦♦ 


♦ 


MOVE 


.UB 


♦ 




ADDR. 


TO 






LUBAD 


AND 






NICL 


TO 




* 


WRKRG1 


* 



POINT TO 

ERROR 

MESSAGE 

-1A6ND- 



♦»B5*^**»* 

POINT TO 

ERROR 

MESSAGE 

-1A90D- 

♦ K3 



••**«C5< 

♦SAVE POINTER TO^ 

♦ MESSAGE TO BE * 
» DISPLAYED IN • 

♦ WRKFLD1 FROM * 

♦ POINT1 * 



► H3 

THE CODING FOR THIS 
ROUTINE ACTUALLY 
APPEARS IN THE 
SJOBCTLF PHASE. 
THE CHART REFERENCED 
IN A DIFFERENT 
PHASE REPRESENTS 
LOGIC IDENTICAL 
TO THE SJOBCTLF 
PHASE. 



*J4 
ERROUT GOES 
TO ERRRTN IN 
ROOT PHASE 
VIA THE BRANCH 
VECTOR TABLE. 



.MESSAGE. DESCRIPTION 



♦LOAD WRKRG3 AS 
♦POINTER TO LOG- 
♦ICAL TRANSIENT 

♦ BUCKET IN THE 

♦ ATTENTION PIB 



♦♦♦♦F5*+^*»*^«* 

MODIFY PSW IN 

SAVE AREA TO 

FORCE RETURN 

TO ERRRTN2 



.1A4ND 
IlA5ND* 



invalid logical unit specification 
"device 'not-defined 



• Kl 
THE PIB FLAG MUST BE 
HEX 80 INDICATING THE 
PROGRAM IS DETACHED 
(NO LONGER IN USE). 



THIS MAY BE A 

NEGATIVE 

DISPLACEMENT 



.1A6ND 
IiA7ND" 
!iA90D* 



UNIT CURRENTLY UNASSIGNABLE 

* INVALID* DEVICE* STATUS 

"SYSTEM'FiLE* NOT* CLOSED 



♦♦•♦H5»****«**» 
»SVC U-SIMULATE* 

* RETURN FROM B « 

* TRANSIENT * 



ERRRTN2 

•♦♦♦#J5» 
•MTNCNT 



ERRRTN1 

♦♦••♦K5**«*«**« 

* RESTORE REG, 

* P0INT1, WITH 
« POINTER TO 

* MESSAGE TO. 

* BE DISPLAYED 



»«♦»♦ 
• BM • 
» 02* 
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Chart DN. $JOBCTLF - UNA Statement Processor (Part 2 of 2) 
Refer to Chart 07. 



HIT 
***YES 



Bl *. 

SYSLOG 



CI *. 

* 

SYSRES 



»#«E1*«»»*«« 
INITIALIZE 

FOR 

SUBROUTINE 

UNANT 

• E2 



UNA2AA 

•##*»F1* 
•UNAENT 



END 

OF PUB 

TABLE 



BLANK 
END LAST 
. SCAN 



• RETURN TO 
.X* CALLING 

* SEQ 



. »»*#»C2****»*« 


»•* 


# 


»«*«C3********** 


• * 


* 




SCANR3 


BF* 


» CLEAR 


# 








-#- 




* PUB 


• 


* 




GET NEXT 




« 


* OWNERSHIP 








OPERAND 






" **»•**•*•**•»* 


* 


• 








» 










X 




























D3 ». 




























BLANK 




NO 








'' 


END 
. SCAN 

'•YES 


' 


X 

• »••« 
*BM * 

♦ C2* 



LOAD LUB ADDR IN 
WRKRG3 FROM LUBAD. 
SAVE THE CURRENT 
LUB IN LUBCOM. 
NULL THE LUB IN 
THE LUB TABLE BY 
SETTING TO HEX FFFF. 



UNASSIGN 
THE 
LUB 



INCREMENT 

LUBAD TO 

ADDR OF 

NEXT LUB 



TURN 

CLB PROG 

SWITCH 

ON 



•*J1**«»*»« 

POINT 

TO NEXT 

FICL 



X 
• »*• 

A2 



RESETCL 

•*J2«*»»« 
* TURN 

• CLB 
• SWITCH 

• OFF 



COMPUTE 

SYSCLB 

LUB 



* * 

* FL • 
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Chart DP. $JOBCTLF - Miscellaneous Subroutines 
Refer to Chart 07. 



(Part 1 of 4) 



•♦•»A2»»*»»« 
OUTPUTS 



• A3 

INITL 



• TXCUU 



**B1****** 
OUTPUTS 



* PRINT A LINE 

* ON SYSLST 
•OR SYSLOG »HL 



ZERO SW BANK1 
LOAD WRKRG2 

AS POINTER TO 

ROOT PHASE 

I/O AREA 



.•CHARACTERS 



» PRINT A LINE 
• ON SYSLST 
•OR SYSLOG «H1 



• PRINT A BLANK 
•LINE TO EFFECT 
•A SPACE «H1 



C2 «. 

» IS ♦ 

LOGICAL 

UNIT 

SYSIN 



•#»*C3««»»««»« 

INITIALIZE 

CCW-WRKCCW- 

WITH THE* I/O 

AREA ADDRESS 

OF BUFFER 



CONVERT HEX 

CUU TO BINARY 

•HI 



PRINT A LINE 

ON SYSLST 
OR SYSLOG *H1 



NORELSW .». 

D3 ». 
.» HAS •. 

.♦RELOCATION 
*. BEEN 
•.PERFORMED. 



•*E3******* 
GET COUNT 
AND TABLE 

ADDRESS 
-RLDST4- 



LOAD WRKRG3 

WITH PUB 
TABLE ADDR 
FOR LOOK UP 



CLEAR THE 
I/O BUFFER 
TO BLANKS 



•**G1******** 

RETURN TO 

CALLING SEQ 



• HI 
THE CODING FOR THIS 
ROUTINE ACTUALLY APPEARS 
IN THE SJOBCTLF PHASE. 
THE CHART REFERENCED IN A 
DIFFERENT PHASE REPRESENTS 
LOGIC IDENTICAL TO THAT 
FOUND IN THE SJOBCTLF PHASE. 



ADR 

PTR 

RELLQP 

»*#*«F3»*»»»*«*» 
•ADR NEXT ENTRY 
•LOAD 2ND ADCON 
» WITH VALUE OF 
• FIRST ADCON 



X 

G3* **. 

END 

OF 

TABLE 

"'•YES 







E4 *. 








DEVICE ♦ 


. NO 


DEFINED 














X 


• YES 






• DM ♦ 




* C4* 












TXCUU1+8 


**F4»»«»*»»« 


»• . 


SEARCH PUB 


• . 


TABLE FOR 


* . 


DESIRED 




DEVICE 




-CUU- 


* 


X 




• •. 





DEVICE 

FOUND 

IN 

•.TABLE. 



•#H3*»»»*»» 


«»»*»H4**«* •••*•• 


SET • 


• SAVE • 


SWITCH • 


* THE * 


-NORELSW- « 


• DEVICE • 


TO ♦ 


♦ TYPE • 


BRANCH « 


•«••***••••»»•*•* 



L 


TXCUU3 X 


X 




»»«»J3«»**«»»*« 


• COMPUTE * 


RETURN TO • 


« THE * 


CALLING * 


« PUB • 


SEQ • 


• POINTER • 




•*•••• •••••*•••* 



RETURN TO 

CALLING 

SEQ 
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Chart DQ. $JOBCTLF - Miscellaneous Subroutines (Part 2 of 1) 
Refer to Chart 07. 



CNVBCD 



»*A2**«»« 
STUCRL 



» CONVERT LIMIT 
•INFORMATION TO 
« UNPACKED 
• EBCDIC 



••««C1«***»**** 

PUT ADDRESS 

OF FIELD INTO 

A WORK 

REGISTER 



STUCRL 

•«»»B2» 
MSGOUT 



TYPE BUFFER 

CONTENTS ON 

SYSLOG 



.* PIB *. 

.* INDICATES ». 
.TASK DETACHED. 



GET ADDR OF 

PROG NAME AND 

PUT IT IN 

I/O BUFFER 



• CHARACTER 
EQUAL TO A 
». ZERO 



.« NEXT «. 

» CHARACTER 
EQUAL TO A 



• REPLACE ZERO 

• WITH A BLANK 
•POINT WORK REG 

• TO NEXT CHAR 



D2 ». 

.• PIB ♦. 

INDICATES 

TIMER 

. SUPPORT . 



•»«E2»«***««» 
MOVE THE 
CHARACTER 

•T' INTO THE 
BUFFER 




«*C5»»»«* 
STUFIU 



• PUT THE 
•PROGRAM PREFIX 

• INTO THE I/O 

• BUFFER 



DOUBLE THE NUMBER 
OF 2K BLOCKS FOUND 
IN THE PIB ENTRY. 




•♦«»F2» 

CALCULATE 

THE NUMBER 

OF IK BLOCKS 



RETURN TO 

CALLING 
SEQUENCE 



CONVERT 

UPPER LIMIT 

TO EBCDIC 



PUT CONVERTED 
DATA INTO 
I/O BUFFER 



**«*G3»«««*««« 

GET ADDRESS 

OF PARTITION 

END AND 

PARTITIONS 

COMREG 



# 


* 


ALL ♦. 
BOUND .* 






PIB .• 

'•NO 


COMPUBND X 














UPDATE * 






PIK AND • 






SAVE • 








. 




X 












G4 ». 








. NO 


* 


PIB CORE ♦. 
BLOCKS EQ .• 




• 


. ZERO .* 



•••E5«»***»«« 

CALCULATE 
UPPER LIMIT 
INFORMATION 



STUFIU X 

•cnvbcd dq* 

• convert'upper""* 

• LIMIT TO • 

• EBCDIC • 



#«#*«G5»*»*»*»*« 
•MOVE THE UPPER 
» LIMIT TO THE 

• CORRECT FIELD 

• OF THE I/O 

• BUFFER 



BLANK UPPER 
BOUND 
FIELD 



POINT TO 
THE NEXT 
PIB ENTRY 



»*J5»*»#«*» 
RETURN TO 

CALLING 
SEQUENCE 



• K3 
THE SUPERVISOR AND BG PROGRAM UPPER 
LIMITS ARE CALCULATED BY GETTING THE 
BG AND F2 ORIGIN ADDRESSES 
RESPECTIVELY AND DECREASING THEIR 
VALUE BY ONE. 
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Chart DR. $JOBCTLF - Miscellaneous Subroutines (Part 3 of 4) 
Refer to Chart 07. 



SFPPE 



#A4 

THE CODING FOR THE ROUTINE 
ACTUALLY APPEARS IN THIS SJOBCTLF 

PHASE. THE CHART REFERENCED IN 
A DIFFERENT PHASE REPRESENTS 
LOGIC IDENTICAL TO THAT FOUND IN 
THE SJOBCTLF PHASE. 



MOVE THE PUB 
POINTER TO 
LUBCOM FROM 
NEWLUB FOR 
COMPARISON 



♦SET SWITCHES 

RETSW-ON 
* LIOSW-OFF 



SFPPE2 

»«***D1#««*»«*»»» 

* SET WRKRG2 « 
•TO A 1 TO START* 

* SCAN AT » 
» BEGINNING OF » 

* LUB TABLE • 



SFPPE02 

* STORE*SCAN 

* CONTROL CHAR 



•SCNLUB C 

*"" MOVE LUB TO* 

# WORK AREA 

* JIBCHN *A4 



Gl *. 
.* END «. 
NO .»0F LUBS OF 
...«. THIS 

». CLASS . 



•#*«B2* *« 

CALCULATE 
PREVIOUS LUB 

ADDR. AND 

STORE PJIBADD 

»B5 



C2 *. 

.* IS *. 

$$BLSTI0 

TRANSIENT 

. ACTIVE . 



LOCATION SLADD 
CONTAINS POINTER 
TO THE 
FOLLOWING LUB. 



CLEAR OUTPUT 

AREAS TMODE 

AND TCMNT 




X 
• *•* 

B3 



X 

B2 



SFPPE4 .». 

HI «. 
.* RETSW • 
NO .* OR LIOSW 
...*. ON 



RETURN TO 

CALLING 

SEQUENCE *J2 



•»*F2***»»**« 

RETURN TO 

CALLING »H2 

SEQUENCE 



• G2 
THIS RETURN TO THE 
CALLING SEQUENCE 
INITIATES LINKP4 
TO RETURN 
CONTROL IN LINE 



THIS RETURN TO THE 
CALLING SEQUENCE 
INITIATES LINKR4 
TO RETURN CONTROL 
TO SFPPE12, 
CHART DS-B2. 



• J2 

THIS RETURN TO THE 
CALLING SEQUENCE 
IS MADE WHEN THE 
END OF THE LUBS 
IS DETECTED LINKR4 
IS NOT INITIALIZED 
TO RETURN CONTROL. 



TURN OFF 

PRIMARY 

EQSW 



SFPPE5 .*. 

C3 «. 
.* DOES ». 
NO .* THIS LUB ». 
...*HAVE EQUAL PUB. 
». POINTER .» 



»*»E3**»*»»»* 

RETURN TO 

CALLING «H2 

SEQUENCE 



.* IS *. 

$$BLSTIO 
TRANSIENT 
. ACTIVE . 



NO .» THERE A «. 
...». PUB ADOR IN .« 
«. OLD .» 
». PUB .* 



•»E4»*»*»»* 
SET FREE 
PUB FLAGS 
IN PUB+7, 
BITS 5-7, 
OFF 



»INCR CLASS BY 1* 
» -P0INT1 EQ * 
» P0INT1+1- * 



CLEAR OUTPUT 

AREAS TMODE 

AND TCMNT 



SFPPE03 X 

*»»*«F5»»»*«»»* 

* SET POINTER 
» TO SYSTEM 

* CLASS 



UNANENT X 

•CHKASG B 

» COMPUTE PUB 
* POINTER IN 
» WRKRG4 



♦»«H5***»*»* 
SAVE PUB - 
POINTER IN 
OLD PUB 



SFPPE3 

#»#*#J5# 
•GETLAN 



COMPUTE LUB 
ADR. AND NO. 
IN CLASS *A4 
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Chart DS. $JOBCTLF - Miscellaneous Subroutines (Part 4 of 4) 
Refer to Chart 07. 



WHEN LINKR4 HAS BEEN 
LOADED WITH THE 
ADDRESS OF SFPPE12. 



SFPPE10 X 

**B1******* 
♦SET THE STD* 

• ASSIGNMENT ♦ 
• FOUND SWITCH 

• STDFOSW, • 
• ON. » 



X 


SFPPE12 X 


•*««C1********** 


**C2******* 


SAVE THE STORED* 


* 


STANDARD LUB IN* 


♦TURN OFF STD 


SSTDLUB FROM * 


* FOUND SW, 


BYTES AND 1 * 


...» * STDFDSW. 


OF JIB * 


* • • 



SFPPE8 

♦••♦♦Dl< 
♦SCNJIB 



GET ADDRESS 

OF JIB 

*D5 



FROM THE CALLING 
SEQUENCE WHEN LINKR4 
HAS BEEN LOADED WITH 
THE ADDRESS OF SFPPE8. 



.♦ IS *. 

$$BLSTIO 
TRANSIENT 
. ACTIVE . 



MOVE CHARS, 

ALT, TO THE 

COMMENTS 

WORKFIELD 

TCMNT 



♦ ENTERED * 

FROM LISTIO 
♦. ROUTINE .* 



RETURN TO 
CALLING SEQ 



.♦ DOES *. 

.♦ THIS LUB ♦ 
*. HAVE EQ PUB 
*. POINTER .* 



* PRIMARY 

PREVIOUSLY 
*. EQUAL . 



SFPPE13 

**»**C4********* 

* MOVE THE 
♦CURRENT LUB TO 

* JIBCHN FROM 

* LUBCOM FOR 

* ALTSCAN 



END 

OF 

JIBS 



Fl *. 

.* IS ♦. 

$$BLSTIO 

TRANSIENT 

. ACTIVE . 



CLEAR OUTPUT 

AREAS TMOfcE 

AND TCMNT 



E2 ♦. 
.♦ IS ♦ 

THE STD 

ASSGN 

. FOUND 

*.SW ON.* 

♦ . .♦ 

YES 



SFPPE14 

*»»»#F2********** 
♦MOVE THE STORED* 

* STD LUB FROM ♦ 
♦SSTDLUB TO THE ♦ 

♦ WORK AREA ♦ 
♦JIBCHN FOR CMP ♦ 



.♦ IS ♦. 

.♦ $$BLSTIO 
. TRANSIENT 
♦. ACTIVE . 



SFPPE201 

»*««*F3*»«»*«ft»*« 

♦ LOAD LOGICAL ♦ 
♦UNIT TAPE, SCAN^ 

♦ CONTROL CHAR ♦ 

♦ IN WRKRG2 AND ♦ 

♦ DOUBLE IT ♦ 



♦ El» 
SFPPE02 



SFPPE8A .♦. 

HI ♦. 

.♦ DOES ♦. 

.♦JIB CONTAIN^ 

♦. STORED 

♦. STD .* 

♦. LUB .♦ 

NO 



Jl ♦. 

♦ DOES ♦ 

JIB 

CONTAIN 

AN ALT 

*. ASSGN. ♦ 

'♦YES 



a i u, i u in 

COMMENTS 

WORK FIELD 

TCMNT 



.X. 
X 

♦ ••♦* 

♦ DR ♦ 

♦ E2^ 



X 

A3 



♦ J3 

THIS RETURN TO THE 
CALLING SEQUENCE 
INITIALIZES LINKR4 
TO RETURN CONTROL 
TO SFPPE8. 
CHART DS-D1. 



1. THE FREE JIB ADDRESS IS LOADED 
IN WRKRG4 FROM POINT3. 

2. THE JIB TABLE ADDRESS IS SUBTRACTED 
FROM WRKRG4 LEAVING THE FREE JIB 
DISPLACEMENT IN WRKRG4. 

3. THE DISPLACEMENT IN WRKRG4 IS DIVIDED 
BY 4 TO DEVELOP THE FREE JIB POINTER. 

4. THE RESULTANT POINTER IS STORED IN 
FAVP FROM WRKRG4. 



SFPPE15 X 
♦♦**#D4*** 
♦SCNJIB 



GET 

ADDRESS OF 

JIB 



SEE CHART DR-A4. 



END 

OF JIB 

CHAIN 



MOVE THE 

LUB TO LUBCOM 

FROM 

JIBCHN 



LOAD THE 

ADDRESS OF 

THE FAVP IN 

WRKRG3 



*«*#H4« 

COMPUTE FREE 

JIB POINTER 

AND STORE 

IN FAVP 

«K2 



»*#F5***«^ 
RETURN TO 

CALLING 
SEQUENCE 



• *• 


SFPPE17 




J4 *. 






J5**»*»**^ 


.* DOES ♦. 


• 






.♦JIB CONTAIN^. YES 


* 


ZERO THE FIRST 


♦. ALT .* 


" " " • 


OF 


THE JIB 


♦. LUB .♦ 












>### 


»*«••#•••* 


♦ NO 






X 

*DR * 


SFPPE18 X 






* F5* 
















♦ 


♦ZERO THE FIRST ♦ 






SFPPE03 


* THREE BYTES * 








♦ OF THE JIB ♦ 
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Chart EA. $JOBCTLG - JOB Statement Processor (Part 1 of 
Refer to Chart 09. 



2) 



*»A5******* 

• RESET TO » 
STANDARD 

JOB CONTROL 
SWITCHES IN 

• JBCSW2.3 • 



B2 ♦. 
.* JOB *. 

•ACCOUNTING 

INTERFACE 

». SUPPORT . 



DELIMITER 

IS A 

.BLANK OR . 

•.COMMA.* 



OPERAND 

TOO 

SMALL 



El •. 

OPERAND 

TO 

LARGE 



••••C2»*»***»»« 

SAVE POINTER 

TO JOB NAME 

IN ACCOUNTING 

TABLE 



X 

*EC ♦ 
♦ C2* 



•#«B3«*»*»»* 

SET UP FOR 

LABEL 

CYLINDER 

CLEAR 



* SET 
SIMULATED 

EOJ SWITCH 
OFF - NOP, 

• SIMRET- 



CLEAR 

LABEL 

CYLINDER 



RESTORE 

JOB STATEMENT 

IN I/O BUFFER 

FROM SAVE 

AREA 



»*D3*»**»«* 
* RESET * 
•LINK CONTROL 
• BYTE 
• -JBCSWL- 



#»D4*»»*»*« 

* RESTORE 

JBCSW4 

TO INITIAL 

VALUE 



NO 



»»*«F1*»»***»«« 

CLEAR JOB 

NAME STORAGE 

AREA AND MOVE 

THE JOB 

NAME IN 



PREVIOUS 

JOB 

.COMPLETED. 



»»F3««****»» 
SAVE JOB 
STATEMENT 

IN JOB 
STATEMENT 
SAVE AREA 



CLEAR 
I/O 

BUFFER 



HI ♦. 
.» LABEL ». 
•OPERATIONS 

IN STD 
•. MODE 



• RESET 
LABEL 

• SEQUENCE 
• SWITCHES 



•SET SIMULATED* 

EOJ SW ON 
•-BR, SIMRET- » 



MOVE JBCSW4 

INTO SAVE 

AREA 



»*»**K1********** 


•USRLBL 


EN* 


•■«■♦—#—»—*—*-* 


-•—• 




RESET TO 




• 


USER LABEL 


• 


• 


MODE 


»••« 



* OR MASKS INTO 

* JBCSW4 TO 

* ALLOW OUTPUT 
•ON LST AND LOG 



MODIFIED 

IN EOJ 

RTN 



••••F 4* ♦•»»♦••• 

ESTABLISH 

LINKAGE TO 

SJOBCTLN 

FOR SIMULATED 

EOJ 



•#*G4*»«*»«» 

ESTABLISH 

RETURN 

ADDRESS TO 

•ACCTSIMR* 



SJOBCTLN 

VIA 
•FETCHRF' 



LOAD ADDRESS 

OF LUB TABLE 

INTO WRKRG1 



C5 ». 

♦ IS • 

JIB 
CHAINED 

TO 
*SYSRDR.» 



•YES 



••»D5»»»**» # » 

COMPUTE 

ADDRESS 

OF 

JIB ENTRY 

INTO WRKRG3 



.♦ IS •. 

STANDARD 
ASSIGN IN 
. EFFECT . 



»»F5»»**** 

SET JOB- 

OUT-OF- 

SEQUENCE 

FLAG IN 

JBCSW3 



RESET 

PROGRAM 

ASSIGNMENTS 



RSSASG 

••••*H5 
•RSTASG 



ACCTSIMR 

• •••*J4>«»*»«« 

* RESTORE 
« POINTERS 




RESTORE 

POINTER TO 

USER JOB ACCT 

INFORMATION 
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Chart EB. $JOBCTLG - JOB Statement Processor (Part 2 of 2) 
Refer to Chart 09. 



.• JOB •. 

♦ACCOUNTING 

INTERFACE 

*. SUPPORT k 



••Bl»*»*»* 

SET JAI 
SWITCHES 

IN JOB 

CARD 
ROUTINE 



••*«C1«««#»*»# 

PUT JOB NAME 

IN PARTITION 

ACCOUNT 

TABLE 



* PUT USER 
» ACCOUNT 
♦INFORMATION IN 

* PARTITION 

» ACCOUNT TABLE 



RSSASG1 X 

##*«*A2«*»**»*» 
« SAVE TIMER 

* VALUE IN 

* BYTES 84-87 
» OF PARTITION 

* SAVE AREA 



INITIALIZE 
REG 1 WITH 
ADDRESS OF 
SYSLOG DFB 



• WAIT FOR * 
•PREVIOUS SYSLOG* 

• I/O TO FINISH # 



LOG TIME AND 
STATEMENT 
ON SYSLOG 



RESET BG 

LABEL AREA 

LENGTHS 



* SET 
RECORDER 
FILE BYPASS 
SW OFF 



YES .♦ *. 

BR .* RECORDER * 
...... FILE BYPASS 

». SW ON .♦ 



*»**B3***»«»»* 

LOAD DIB 

TABLE ADDR. 

INTO WRKRG1 

AND ZERO 

SYSLNK ENTRY 



»**«C3****** 

CLEAR 

USERS 

SCRATCH 

AREA 



NO .* MODIFIED 

IN EOJ 

«. RTN 



»«C4»*#***» 

• SET • 

RETURN' TO 

CONTROL 

CHART BB-B4 



B5 ♦. 
.* COMM *. 
NO .+REGION EXT 
AVAIL 



ACCTIGN3 

•GETIME 



•MODIFIED • 

IN JOB CARD 
*. ROUTINE .• 



»»»*G1*»»*»**»* 

PUT TIME IN 

ACCOUNT TABLE 

AS PACKED 

DECIMAL 



*«E2««»»*«* 




SET JOB 




CANCEL 




SWITCH 




OFF 


• 






> 


< 


SIMRET 






F2 •. 






YES .» 


SIMULATED 




EOJ 


.BR * 







E3 ♦. 
.» END •. 

OF *..NO 
PUB TABLE 



**D4**«»«» 
'FETCHRF 
SJOBCTLN 



E4 *. 
.* PUB ». 

.* OWNED BY » 

THIS 

*. PARTITION. » 



SET PUB 
EOJ FLAG 

OFF 



SDR 
COMM REG 
. AVAIL 



THIS 

INITIAL 

IPL 



«*»F5»#»»*««* 
SET UP REGS 
TO POINT TO 

RECORDER 

INITIALIZER 

ROUTINE 



RESET JOB 

DATE FROM 

SYSTEM 

DATE 



ACCTIGN4 

*****H1**«*»**»« 

• POINT TO SAVE 

• AREA IN PIB 

• FOR THIS 

• PARTITION 



» THIS A • 

FOREGROUND 
•.PARTITION.* 



RSSASG2 

»«•»»«].****♦•••» 

• SAVE JOB 

• NAME IN BYTES 

• 0-7 OF 

• PARTITION 

• SAVE AREA 



MODIFIED ♦. NO 

IN JOB CD .»... 

RTN .» BR 



*»K2**«**«« 

RESET 
ACCTBR2 
TO NOP 



X 
*••• 

* • 

• A3 • 



NO .* MODIFIED 
,..•. IN EOJ RTN 

BR •. 



LINKAGE TO 

SJOBCTLN AT 

PAUSE EOJ 



INCREMENT 

POINTER 

TO NEXT PUB 



CHECK JBCSW3 IN 
COMREG BIT 2. (SET 
ON BY ATTN. B 
TRANSIENT). 



**«*J3*«»**» 

* SJOBCTLN 

* VIA 

* «FETCHRF» 



»»»»K3«»**«*»*» 

SVC 14 

GO TO JOBCTLA 



»J5 
ED-J5 
EE-B1.E1 
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Chart EC. $JOBCTLG - /& Statement Processor (Part 1 of 
Refer to Chart 09. 



3) 



« SET » 


BC-F4 


* RECORDER • 


EA-C2 


* FILE BYPASS * 




* SW ON * 




* -PASSRF » 




*•#» l 












» B2« 




*»*# X 




EOJ .». 




CI *. 








NO .* SYSPARM *. 




SUPERVISOR .* 





RESET 
SYSPARM 
FIELD 



GET POINTER 

TO CORRECT 

PIB TABLE 

ENTRY 



» IS * 

F0REGR0UND1 
*. RUNNING .• 



COMPUTE 

UPPER 

LIMIT OF 

AREA • 



PICK UP 

F0REGR0UND1 

END 

ADDRESS 



NO .» IS MAINT 
RTN TO BE 

♦.EXECUTED . 



.• JOB «. 

•ACCOUNTING 

INTERFACE 

». SUPPORT . 



RESTORE 
COMREG 

HIGH 
STORAGE 
ADDRESS 



GET ADDRESS 

OF ACCOUNT 

TABLE 



TURN ON 
CATALOG 
SWITCH 



ZERO RIO 
TO SPECIFY 
ENTRY FROM 
JOB CONTROL 



* GET ADDRESS 
»0F COMREG EXT, 

* RAS LINKAGE 

* AREA, AND RAS 

* TABLE 



GET DYNAMIC 

REALLOCATION 

CODE FOR 

PARTITION 



HI *. 
.* WAS «. 

* PARTITION » 

DYNAMICALLY 
». REALLOC .* 



NORESTOR 

••*»*F3« 
•CHKASG 



CHECK 

SYSRDR 

ASSIGNMENT 



RELOCATE 

ADDRESS 

CONSTANTS 



SET EOJ 

BIT ON IN 

SYSRDR 

PUB 



.X. 
X 

A5 



**G4»*»*«*« 

SET UP 

FETCH FOR 

•MAINEOJ* 

ROUTINE 



SET UP 
FETCH FOR 
•MAINEJP' 

ROUTINE 
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Chart ED. $JOBCTLG - /& Statement Processor (Part 2 of 3) 
Refer to Chart 09. 



Al • . 
.» IS «. 

LABEL 
OPERATION 
. IN STD . 
♦.MODE .* 

*• •* 
♦NO 



«*B1«*#*## 

RESET 

LABEL 

SEQUENCE 

SWITCHES 

-JBCSW5 



SYStPT ». NO 


.» IS ». NO 


# 


CLEAR 


• 


DISK .* 


...X«. EOF 


...X* 


INPUT 




DEVICE .« 


•.POSTED IN.» 


* 


BUFFER 




• •* 


*. PUB .« 


* 




*♦** 



* IS • . NO 
EOJ. POSTED .•... 
*. IN PIB .« 



SET PIB 
AND PUB 

EOJ 

OFF 



READ 

FROM THE 

DEVICE 



VALID 
JOB NAME 
.IN BUFFER. 



RESET TO 

USER LABEL 

MODE 



CHECK 

SYSRDR 

ASSIGNMENT 



SET 
CHARACTER 
LENGTH TO 



CLEAR 

LABEL 

CYLINDER 



CLEAR 

TEB 

COUNTERS 



IS • . 

SVSRDR 
.ASSIGNED .« 



«#E2»»»»««* 

« SET EOF * 

IN SYSRDR 

PIB AND PUB 

OFF 



Fl *. 

.* JOB * 

OUT OF 

SEQUENCE 

*F4 



RESET ALL 

I/O 
ASSIGNMENTS 



X 


»»H1«*«*»»» 


TURN ON 


UNIT 


EXCEPTION 


SWITCH IN 


SYSIPT DFB 



N0IPT7 X 
♦#*«»F2«»« 
•RSTASG 



RESET ALL 

I/O 

ASSIGNMENTS 



•«#G2*****»* 

SET UP EOJ 

MESSAGE 

AND RESET 

JOB NAME 

TO NONAME 



RESET JOB 
NAME IN SAVE 
AREA FOR THIS 

PARTITION 



PUT TIMER 
VALUE IN 
LOC TIMEH 



« WAIT FOR * 
•PREVIOUS SYSLOG* 
» I/O TO FINISH • 



F3 *. 
.• JOB ». 

•ACCOUNTING ♦. 

INTERFACE . 

«. SUPPORT .♦ 



*#G3««»»»»* 

• SET JOB • 
•ACCTG INTER- • 

•FACE BR. SW AND* 
• EOJ RECORD • 

* INDICATOR • 



#»*»H3»«*»»*«» 

PUT EOJ TIME 

IN ACCOUNT 

TABLE AS 

PACKED 

DECIMAL 



*F4 
JBCSW3 BIT4 
INDICATES JOB 
IS BEING RUN 
OUT OF SEQUENCE 
WITH A TEMPORY 
ASSIGNMENT 
FOR SYSRDR. 



LOG TIME 

ON 

SYSLOG 



RESET 

LINE COUNT 

TO 1 



F5 ♦. 

•• PAUSE •. 

AT EOJ 

REQUESTED 



»G5»**«»* 

SET 
JBCSWO 

FOR 
JOBCTLA 



NOPSE X 

•*H5«**»««* 
•RESET LINK « 
•CONTROL BYTE 
♦ IN JBCSW1 
• BITS 0,2,3, 
• 4, AND 7 • 



SET MESSAGE 
CHARACTER 
LENGTH TO 



**J5«»«»»»» 
• RESET 
JBCSW2 
AND JBCSW3 



Kl «. 
.* IS • 
NO .» SYSIPT 
ASSIGNED 



X 

• B5 * 



GET JOB 

DURATION 

TIME 
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Chart EE. $JOBCTLG - /£ Statement Processor (Part 3 
Refer to Chart 09- 



of 3) and CANCEL Statement Processor 



*A1«*»* 
TEBS 



ANY 

TEB 

PRESENT 



«#C1»*»»*»« 
LOAD ADDR 

OF PUB 
TABLE IN 
-POINTS 



.* NOP • . OFF 
.• FOR •. BR 
.PRINTING TEB .•... 
». HEADER .• 



SET TEB 

HEADER 

SWITCH TO 

OFF 



••C2******* 

CLEAR AND 

LOAD 

OUTPUT 

BUFFER 



•»D1******* 

* SET HDR. • 

LIST SWITCH 

TEB HDR 

TO NOP 



»»♦• 

* • 

* El » 



END 

OF 

PUB 

TABLE 



Fl *. 

.•DEVICE • . 
A TAPE OR 
CARTRIDGE 

. TAPE 
•READER.* 



LOG 

MAGNETIC 

TAPE ERRORS 



•••*E2****»»»* 

CLEAR OUTPUT 

BUFFER AND 

MOVE SECOND 

HEADER IN 



LOG «CH. UNIT 
PRE WTE ERB * 
NRC 



• YES 



PICK UP FLAG • 

FOR OWNERSHIP • 

•H5 TEST» 



CLEAR WORK 
REGISTER 
-WRKRG4- 



TEBLOP 

* CONVERT AND * 
•MOVE COUNT BYTE* 

* FROM TEB * 

* TO OUTPUT * 

* BUFFER * 



•*«C3******** 
GET ADDRESS 

OF NEXT 

COUNT BYTE 

AND PRINT 

POSITION 



ANY 
MORE 
COUNT 
BYTES 



X 

••♦«E3**» 
MSGOUT 



#A4«***» 
CANCEL 



TBNXPB 

•*»««F3«*«***«» 

• LOAD ADDRESS 

• OF NEXT 

• PUB TABLE 

• ENTRY 



CLEAR 
OUTPUT 
BUFFER 



••••C4»»*»*»*»* 
CLEAR OUTPUT 
BUFFER, MOVE 
JOB NAME INTO 

CANCEL 

MESSAGE 



••••*D4********* 
*M0VE MSG, «JOB 

* NAME CANCELED 

* DUE TO OPTR 

* INTR.« TO 

* OUTPUT AREA 



OUTPUT 

MESSAGE 

ON SYSLOG 



.* TO BE •. 
NO .*PUT OUT ON 
,..*. SYSLST 



OUTPUT 

MESSAGE 

ON SYSLST 



HI *. 
.* UNIT *. 
•BELONGS TO 

THIS 
•.PARTITION. 



•H2«*****»»«* 

UNPACK * * 

CHANNEL * * 

AND * * 

UNIT • * 



*H3 
THE CANCEL CODE IS 
SET FOR OPERATOR 
INTERVENTION 
CANCEL 



• « 

• 


• 


»»J1«*»*»* 

COMPUTE 

ADDRESS 

OF TEB 

ENTRY 


»♦•• 

• 
• 


* TRANSLATE AND • 

* MOVE CHANNEL * 

* AND UNIT NO. * 

* TO OUTPUT * 

* BUFFER ♦ 


NO . 

X 

• •• 

• 
F3 • 


• 
• 


X 

• •■ 
Kl *. 

.* ANY * 

NON-ZERO 
ENTRIES 

*• •* 

'•YES 

X 

• ••• 

• • 

• A2 » 

• • 

• ••• 


•* 


,# 


X 
***««K2**«******* 

• GET FIRST • 
•PRINT POS. AND • 

• NUMBER OF • 
» BYTES TO BE * 

• LISTED * 


X 

• •*• 

• • 

• A3 • 

• • 

• ••• 



NOTLIST 

**H4******* 

♦SET CANCEL * 

« AND SYSRDR • 

•INPUT INDICATOR* 

• SWITCHES IN * 

•JBCSWO »H3 * 



.• WAS *. 

.♦JOB OUT OF 
. SEQUENCE 



► H5 

THE CODING FOR THIS 
ROUTINE ACTUALLY 
APPEARS IN THE 
SJOBCTLG PHASE. THE 
CHART REFERENCED IN 
A DIFFERENT PHASE 
REPRESENTS LOGIC 
IDENTICAL TO THAT 
FOUND IN THE 
SJOBCTLG PHASE. 



RESET ALL 

I/O 

ASSIGNMENTS 
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Chart EF. $JOBCTLG - EXEC Statement Processor 
Refer to Chart 09. 



(Part 1 of 5) 



CAUSE 

RELOAD 

OF SJOBCTLA 



* RESET THE 

* PROGRAM 

* MASK IN PSW 
» TO ZEROS 



INITIALIZE 

FOR 
RELOCATION 



•ACCOUNTING 

INTERFACE 

*. SUPPORT . 



PUT PHASE 

NAME INTO 
ACCT TABLE 



#*#C2******** 

POST JOB 

STEP RECORD 

INDICATOR 



LOAD ADDRESS 

OF DIB 

TABLE INTO 

WRKRGl 



##»»C4******»»* 

ZERO SYSLNK 

ADDRESS ENTRY 

AND INDICATE 

SYSLNK DTF 
TABLE CLOSED 



MODIFY 

PHASE NAME 

TO 

RPG1 



WAIT FOR 
I/O ON SYSLOG 
TO COMPLETE 



EXEC1 

»#«#»E1«**»»»*** 

* CLEAR PHASE 

* NAME STORAGE 
•AREA TO BLANKS 

* AND INSURE 
♦NONZERO REG 10 



• EXEC * 

LINKAGE 

EDITOR 

REQ 



EXEC 

ATLEDT 

*F2 



#»»»*E3******** 

* MOVE 

» $LINKEDT 

* TO PHSNMF 

* FOR FETCH 



.♦ IS *. 

NO .• MULTI- * 
...*. PROGRAMMING 
•.SUPPORTED.* 



SET LOAD 

ADDRESS 

AREA ODD 



GET NAME 
OF PHASE TO 
BE FETCHED 



•F2 
REQUEST FOR 
AUTOTEST 
LINKAGE EDITOR 



EDTEST .«. 

F3 ♦. 
.* IS •. 

NO .* LINK OR • 
...•.CATAL OPTION 
*. SWITCH .• 
•. ON .• 



.• IS ». 

* MULTI- » 

PROGRAMMING 
•.SUPPORTED.* 



DID 

BLANK 

END 

•.SCAN . 



•»»«G3*»»«»«** 

LOAD ADDRESS 

OF OUT AREA 

INTO WRKRG3 

AND SETUP 

ENTRY STMNT. 



.* ♦ . 




.* *. 






* LOAD ADDRESS • 


• WAS ». NO 




* IS • 


. 


*JO 


• OF SYSLNK DFB • 


OPERAND 


...X* 


PROGRAM 






* INTO ♦ 


•. PRESENT .« 




». PRESENT .• 






* REGISTER 1 • 


*. .* 
















*. . ♦ 




X 




• YES 




• YES 




*FG ♦ 

• B5* 




X 








0TSERR1 








X 






X 


Jl *. 


••«*#J2******** 


^* 




«»*«J3«##*»#»»#« 


.* PHASE «. 




RESET INPUT 






EXCPRG BH 


• NAME SIZE •. 




DISK ADDR OF 








TOO LARGE OR .» 




DIRECTORY TO 








•. TOO .♦ 




ADDR OF L/E 






• ISSUE • 


•.SMALL.* 


* 


PHASE DIR. 


»« 




I/O 



•••G5»»«»**»« 

CHANGE THE 

FETCH SVC 

INSTRUCTION 

TO LOAD SVC 



STORE THE 

PHASE NAME 

IN SAVE 

FIELD 



* Al* 
NOMPSS 



»»K2»»«**»* 
SET SWITCHES* 

• GTNAME AND • 
COPYSW TO NOP 

•-COMPILE AND * 
* GO MODE- * 



X 
A2 
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Chart EG. $JOBCTLG - EXEC Statement Processor (Part 2 of 5) 
Refer to Chart 09. 



.EF-D5,G5 



* CLEAR * 

* OUTPUT * 

* BUFFER * 

* * 
***************** 



**B1******* 

♦ TURN ON THE* 
*ALL0W OUTPUT 

ON SYSLST SW, 
* JBCSW4, BIT 

* 1 = * 
*********** 



SPACE ONE * 
LINE ON * 
SYSLST * 

************** 



*CHECK PREVIOUS * 

* LABEL * 

* OPERATIONS * 
***************** 



SYSLNK 
FILE 

OPEN 



* UPDATE * 

* TRACK- * 

* NUMBER * 

* * 
***************** 



A2 *. 






IS * 






FETCH 


*. 


YES 


OF A $ 




*. - . 


PHASE 


.* 





CLEAR 
OUTPUT 
BUFFER 



*****C2**** ****** 

* SET UPPER HEAD * 

* LIMIT IN DISK * 
*REC IN AND DISK* 
*REC OUT INFOR- * 

* MATION TABLES * 
***************** 



*****0 2 ********* 
*CHKASG BK 
*_*_*_*_*_*_*_*_ 

* CHECK ASSIGN. 

* FOR SYSRES 

* AND GET PUB 
**************** 



*****A3********** 

* * 

* POINT * 

* TO 1ST * 

* CIDIR * 

* ENTRY * 
***************** 



GTNAME .*. 

B3 *. 

.* PHASE ♦ . 

.♦NAME SWITCH*. NO 

*FOR COMPILE AND*... 

*. GO MODE .* 

*. *A5 .* 



*YES 



**C3******* 

* SET PHASE * 

*NAME SWITCH, * 

* GTNAME, TO BR 

*F0R NOT COM- * 

*PILE AND GO* 

*********** 



****D3** ******** 

SAVE NAME * 

FOR INITIAL * 

FETCH AND * 

SAVE LOAD * 

ADDRESS * 

**************** 



*****p 2 ********** 

* INITIALIZE * 

* INPUT AND * 
♦OUTPUT DF1 WITH* 

* 2314 CONSTANTS * 



*K2 
*********** 



**** 



*EH * 
* Jl* 
**#* 
CHKCND 



***** 

*EH * 

* A2* 

* * 

* CIDEND 

COPYSW 



*****/\4********* 

* LOAD ADDR OF 
*PARTITION SAVE 

* AREA INTO 

* WRKRG1 
* 
**************** 



*****B4** ******** 

* ADD LENGTH OF * 
*PARTITION SAVE * 
*AREA AND LABEL * 

* TO WRKRG1 * 

* * 
***************** 



C4 *. 

.*P0INT3 *. 

GT WRKRG1 

*C5 



BEGADDR 

*****04***** 

* LOAD END 

* LABEL ARE 

* INTO 

* P0INT4 
* 
************ 



NO=COMPILE AND 
GO 
YES=NOT COMPILE 
AND GO 



*C5 
IS START OF PARTITION 
SAVE AREA GREATER 
THAN THE END OF 
LABEL AREA. USE 
GREATER AS LOAD 
ADDRESS. 



*****H1********** 

* RESET TRACK * 

* NUMBER AND * 

* UPDATE * 

* CYLINDER * 

* NUMBER * 
***************** 



*EH * 

* Jl* 
**** 

RDCID X 

*****52* ********* 

* LOAD ADDRESS * 

* OF DIRECTORY * 

* INPUT DFB * 

* INTO WRKRG3 * 

* * 
***************** 



****H2*********** 
EXCPRG BH 
**_*_*_*_*_*_*_** 
READ A 
* CIDIR * 
RECORD 
***************** 



F3 *. 

.* ENTRY *. 

.* TO BE *. 

. INCLUDED IN . 

♦.PHASE DIR.* 

*. *F5 .* 

*. .* 

*YES 



*****G3** ******** 

* * 

* PUT * 

* ENTRY * 

* IN OUTPUT * 

* AREA * 
***************** 



*****H 3** ******** 

* COMPUTE * 

* NUMBER OF * 

* BYTES IN * 

* PHASE *H5 * 

* * 
***************** 



*E5 
AN ASTERISK!*) 
MEANS LOGICAL 
END OF DIRECTORY 



*F5 
IN COMPILE AND 
GO MODE THE 
ANSWER IS 
ALWAYS YES 



*H5 
THE NUMBER OF FULL 
BLOCK TIMES 1728 
(1688 FOR 2314), PLUS 
THE NUMBER OF BYTES 
IN THE LAST BLOCK 
EQUALS THE NUMBER 
OF BYTES IN THE 
PHASE 



STLNKA X 




.*. 




.*. 


*****jj ********** 




J2 *. 




J3 *. 


* * 




.* *. 




.* *. 


* LOAD ADDRESS * 




.* END *. 


YES 


.* PROGRAM *. NO 


* OF DIB * 




*. OF 


*. . . . 


*. SELF- .*.... 


* TABLE INTO * 




*. CIDIR .* 




♦RELOCATABLE* 


* WRKRG1 * 




*. .* 




*. .* 


***************** 




*. .* 


X 


*. .♦ X 






*N0 


***** 
*EH * 
* H2* 


♦YES *♦♦*♦ 

♦ EH ♦ 

♦ Bl* 






X 


* * 


* ♦ 






**** 


* 


♦ 






* * 


CIDEND 


ADDLNGTH 


X 




* A3 * 




X 


*****«! ********** 




* * 




****** 3** ******** 


* STORE * 




**** 




♦ LOAD ADDR ♦ 


* CURRENT * 








♦ OF START OF ♦ 


* ADDRESS OF * 








* PROBLEM PROG ♦ 


* SYSLNK INTO * 


*K2 






♦ AREA INTO ♦ 


* DISK ADDRESS * 


BLOCKS PER TRY=15 




♦ P0INT3 ♦ 


***************** 


CORE 


IMAGE LIB 




***************** 


; 


BLKSIZE=1688 BYTES 




; 


X 

**** 








X 

♦♦*♦ 


* * 








* ♦ 


* A2 * 








* A4 * 


* * 








* ♦ 


**** 








**** 
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Chart EH. $JOBCTLG - EXEC Statement Processor 
Refer to Chart 09. 



(Part 3 of 5) 



SET RETURN 

ADDRESS FROM 

THIS RTN TO 

NOPHDB 



»A3*»«»* 
WRTPHD. 



GET 

PHASE 

HEADER 

(SVC 23) 



*EG-J3,C4,D4 



OF 



»»«B1»*^ 

ADD NO 

BYTES IN 

PHASE TO 

LOAD 

ADDRESS 



CI #. 
.« IS IT ». 

.* GREATER *. 

•.THAN PREVIOUS. 

». MAX .* 



STORE THE 

NEW ADDRESS 

IN COMREG 

+ 40 



WRTPHD 

*»#«*B2«***»*»* 
» LOAD ADDR 
» OF DIRECTORY 

* OUTPUT DFB 

* IN WRKRG3 



SEIZE 

THE 
SYSTEM 



D2 *. 

.*' BG 

«. PARTITION 

**«YES 



« INCR OUTPUT 

* AREA POINTER, 

* P0INT2, FOR 

* NEXT ENTRY 



WRTPHDR 

«»**«E2»*«»» 
•EXCPRG 



*E3»**** 
CLRDOA 



**#C4«»*»*«*« 

CAUSE 

RELOAD OF 

PHASE IF 

PROGRAM IS 

NOT PRESENT 



• WAS * 

LOAD 

ADDRESS 

GIVEN 



#.*E4*»»»*»» 

LOAD ADDR 

OF PIB 

TABLE INTO 

P0INT1 



CLEAR 

OUTPUT 

AREA 



WRITE BLOCK 
IN SYSRES 
PHASE DIR 



«#«»G2**«*»*«*« 
LOAD ADDR OF 
OUTPUT BUFFER 
IN REG P0INT2 



•SET SWITCH 
IN PIB TO 
DISALLOW 
SYSRES I/O 



ZERO REG 4 

FOR FETCH 

OR LOAD 

INSTRUCTION 



GTNXNT 

##»«»H1**»»»«*« 

• INCR INPUT 

• AREA POINTER, 

• P0INT1, FOR 

• NEXT CIDIR 

• ENTRY 



*#»*H4 **###••# 

LOAD ADDR OF 

PARTITION 

SAVE AREA 

FROM PIB TO 

P0INT2 



RETURN TO 

CALLING 
SEQUENCE 



LOAD ADDR 
FOR FETCH 
OR LOAD 
INSTRUCTION 
INTO LINKR1 



• E3* 
CHKEND 



*EG • 
• G2* 

RDCID 



«»»*K3**»**«**» 
LOAD ADDR OF 
SAVE AREA IN 

REG AND 
ADDR OF PHASE 
NAME IN REG 1 



ZERO REG 

AND SET 
KEY (REG 
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Chart EJ. $JOBCTLG - EXEC Statement Processor (Part 4 of 5) 
Refer to Chart 09. 



»****A1****»**.**» 
« LOAD REG9 * 
•WITH THE FETCH • 
•OR LOAD SVC AND* 
» A BRANCH * 
• TO LINKRL * 



»ft**El********« 

GET LOAD ADDR 

AND ZERO 

HIGH ORDER 

BYTE 



* SELF- 
RELOCATING 
*. PROGRAM . 



•**G1*«*»***« 

GET ADDR OF 

START OF BG 

AND PROGRAM 

SAVE AREA 



B2 *. 

SMAINEOJ 

**N0 



C2 *. 

"maintejp 



*#»»*D1*****«* 


»*• 


D2 * 


* ALLOW 






* SPACE FOR 






• FLOATING 




*. MAINT 


• POINT 






• REGISTERS 


*•♦ 


*. 



F2 ». 

CSERV 



G2 *. 

DSERV 



.» FLOATING 
.X*. POINT 
«. FEATURE 



ALLOW 

FOR 
REGS 



CHANGE 

FETCH TO 

LOAD 



ftft*E3******* 

STORE LOAD 

SVC IN 

REG SAVE 

AREA 



#»F3****** 

CLEAR 

LOAD 

ADDRESS 

REGISTER 



INITIALIZE 

FOR MOVE 

ROUTINE 
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Chart EK. $JOBCTLG - EXEC statement Processor (Part 5 of 5) 
Refer to Chart 09. 



INITIALIZE 

FOR CLEAR 

CORE ROUTINE 

• B4 



FETCHR X 

*»»»*B3*»»»*»»»* 

* CLEAR THE 

* CLEAR STORAGE 

* ROUTINE 

* TO ZEROS 



*B4 

1. P0INT1 EQ ADDR OF LOCATION 
CONTAINING THE START ADDR. 

2. REGISTER 2 EQ ADDR OF END OF 
PARTITION PROGRAM AREA. 

3. P0INT3 EQ COMPUTED BYTE COUNT 
OF AREA TO BE CLEARED. 

4. WRKRG1 EQ DECIMAL 255. BYTE 
COUNT TO BE USED IN MOVE INST. 



CLRRTN X 

♦SET REG P0INT2 » 
» EQ CURRENT » 
•START ADDR. SET* 
•REG POINT 3 EQ » 
•RESIDUAL COUNT • 



♦ IS 

CORE CLEAR 
♦.COMPLETE . 



»*««»E1»*»*»»»»» 
•CLEAR 256 TYPE 
•AREA AND INCR. 
» POINT1 BY 256 

• FOR NEW START 

* ADDR. 



SVC 22 

RELEASE 

CONTROL 



FINIS2 

«*»«*E2**»»»*»»» 

• ADJUST BYTE 

• COUNT IN 

• WRKRG1 AND 

• CLEAR REST OF 

• AREA 



F2 *. 
.• IS ». 

•PHASE LOAD • 

ADDR. GT BG 
•START ADDR.* 



LOAD THE LOAD 

ADDR IN 

REG FROM 

P0INT4 



FETCH OR 

LOAD 

PROGRAM 



»»*#F3**»»»*»*« 

EXIT TO ENTRY 

POINT IN 

PROGRAM »G3 



#C5**»«* 
INITL . 



*»*»D5»»*»»*»*» 

GET COUNT OF 

ENTRIES IN 

RELOCATABLE 

TABLE AND 

ADDRESS TABLE 



ADDRESS 
NEXT 
ENTRY 



.ADR X 

• PUT THE VALUE 

• OF THE FIRST 

• ADCON INTO 

• LOCATION ADDR 

• OF 2ND ADCON 



RELOCATE 

PHASE TO 

START OF 

BG AREA 



*G3 
REG CONTAINS THE LOAD ADDRESS OF 
THE PROGRAM, FETCHED OR LOADED. 
LINKRl CONTAINS THE ADDRESS OF 
THE PARTITION SAVE AREA IN WHICH 
THE SVC 4 AND A BRANCH ON REG 1 
HAS BEEN SAVED. REG 1 CONTAINS THE 
ENTRY ADDRESS OF THE PROGRAM PHASE 
JUST LOADED. THE FINAL BRANCH IS 
MADE FOR EXECUTION OF THE 
USER PROGRAM. 



NO .» END 
...•. OF 

». TABLE 



CLEAR 

TEMPORARY 

STORAGE 

AREA 



##»»H5*«»**««* 

RETURN TO 

CALLING SEQ 
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Chart EL. $JOBCTLG - OPTION Statement Processor (Part 1 of 4) 
Refer to Chart 08. 



* Bl * 

* * 
**** 



.X. 



OPTION X 

*****B1********** 
*SCANR2 BF* 



********* 



BTL00P X 

****#B3 *#**$#*** 

* L0A0 ADDRESS 

* GF NEXT 

* OPERAND ENTRY 

* INTO POINTl 
* 
**************** 



CI *. 
* DID 
EQUAL 

END 
SCAN 



*****D1 ********** 

* RESET TO * 

* ZERO THE * 

* VECTOR ENTRY * 

* DISPLACEMENT * 

* -POINT2- * 
***************** 



.* DOES *. 
.* OPERAND * 
.START WITH A 
*. •NO' .* 



*****F1 ********** 

* * 

* ADJ REGS FOR * 

* -NO- OPTION. * 

* *J2 * 

* * 
***************** 



C2 *. 




C3 *. 


* IS *. 




.* DOES *. 


OPERAND * 


NO 


.* TABLE *. 


SYSPARM=« 


*. . . . 


*. ENTRY EQUAL . 






*. OPERAND .* 






*. *B4 .* 


*. .* 


X 


*. .* 


*YES 


***** 
*BM * 
* C2* 

* * 
* 

NVSERR 


*YES 




X 

*****D3** ******* 










* LOAD ADDR OF 






* CORRECT 






* ROUTINE INTO 






* LINKRG3 



Gl *. 

.* IS *. 

OPERAND 

1 TO 8 

. CHAR IN . 

*LENGTH.* 

*. .* 

*YES 



*****H1 ********** 

* STORE OPERAND * 

* IN OPTION * 

* TABLE AS * 

* DELIMITER. * 

* * 
***************** 



***** j 1 ********** 

* INIT REG, * 

* POINTl, AS * 

* POINTER TO * 

* OPTION TABLE * 

* LESS 12 BYTES * 
***************** 



***************** 



*****E3********** 

* EXIT TO * 

* CORRECT * 

* PROCESSOR * 

* SEE TABLE A * 

* *C4 * 
***************** 



F3 *. 
.* DID *. 
.* A BLANK * 
.*.END THE LAST 
*. SCAN .* 
*. *CA .* 
*. .* 
* *YES 



***** 
*BB * 
* B4* 



*J2 
1. 
2. 



P0INT2 EO 2. 
POINTl EQ ADDR 
OF XXX OF NOXXX. 
CHAR COUNT IN 
P0INT3 IS REDUCED 
BY 2. 



*B4 
BECAUSE THE OPERAND HAS 
BEEN STORED IN THE TABLE 
AS A DELIMITER, IT IS 
NOT POSSIBLE TO SEARCH 
THE ENTIRE TABLE WITHOUT 
FINDING AN EQUAL. 



*C4 
EACH PROCESSOR RETURNS CONTROL 
TO BLOCK F3 UNLESS AN INVALID 
OPERAND IS SPECIFIED. CONTROL 
IS TRANSFERRED TO NVOPTN AT 
BLOCK C2 IF AN INVALID OPERAND 
IS SPECIFIED. 



TABLE 


A 






.OPERAND . 


CHART. 


FLOWCHART LABEL . 


.DECK 


EM 


DECK 




. 


.NODECK . 


EM 


NODECK 




. 


.LIST 


EM 


LIST 




. 


.NOLIST . 


EM 


NOLIST 




. 


.LISTX 


EM 


LISTX 




. 


.NLISTX . 


EM 


NLISTX 


• 


. 


.SYM 


EM 


SYM 


• 


. 


.NOSYM 


EM 


NOSYM 




. 


.XREF 


EM 


XREF 


• 


. 


.NOXREF . 


EM 


NOXREF 




. 


.ERRS 


EM 


ERRS 




. 


.NOERRS . 


EM 


NOERRS 




. 


.48C 


EM 


CA8 


• 


. 


.60C 


EM 


C60 




. 


•NOLOG 


EM 


OPTNLG 


• 


. 


.LOG 


EP 


OPTLOG 


• 


. 


.USRLABEL. 


EN 


USRLBL 


. • 


... 


.STDLABEL. 


EN 


STDLBL 


• 


. 


• DUMP 


EP 


DUMP 


• 


. 


.NODUMP . 


EP 


NODUMP 


• 


. 


.LINK 


EN 


LINK 


• 


. 


.NOLINK . 


EP 


NOLINK 


• 


. 


.CATAL 


EN 


CATAL 


- 


. . 


.PARSTD . 


EN 


PARSTD 


• 


.SYSPARM=. 


EP 


SYSPRM 


• 
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Chart EM, $JOBCTLG - OPTION Statement Processor (Part 2 of 4) 
Refer to Chart 08. 



••••Al***« 
DECK 



**B1*»**« 
• SET 
DECK 
SWITCH 
TO ON 



»«A2»**«» 
NODECK 



*A3*«»»*»*«* 
LIST 



X 

#B2*»*»* 

SET 

DECK 

SWITCH 

TO OFF 



•••A4*«**» 
NOLIST 



LISTX 



*B3 

SET 

LIST 

SWITCH 

TO ON 



##B4*»**» 

* SET 

LIST 

SWITCH 

TO OFF 



SET 
LISTX 

SWITCH 
TO ON 



NLISTX 



«D3**»*» 
NOSYM 



•*D4«**« 
XREF 



'"SET 

LISTX 
SWITCH 
TO OFF 



X 

*E2»*««« 

SET 

SYM 

SWITCH 

TO ON 



*«E3***»««» 


SET 




SYM 




SWITCH 




TO OFF 





• E4» 

SET 

XREF 

SWITCH 

TO ON 



•Gl***» 

ERRS 



•Hl»«*»« 

SET 

ERRS 

SWITCH 

TO ON 



•»*«G2********* 
NOERRS 



««H2*«*«* 

SET 

ERRS 

SWITCH 

TO OFF 



*G3********* 
C48 



»*H3«**»*»* 

SET 

INDICATOR 

FOR 48 
CHAR SET 



•*H4«****»* 

SET 

INDICATOR 

FOR 60 
CHAR SET 



#D5*»*»***** 
NOXREF # 



•E5«»««* 

SET 

XREF 

SWITCH 

TO OFF 



«**#G5***** 
» OPTNLG 



*#H5*»***»* 


SET 


PROGRAMMER 


LOG IND. 


TO OFF 



X 




##»»K5*hh ***•• 


RETURN 


TO 


CALLING 


SEQ 


EL-F2 
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Chart EN. $JOBCTLG - OPTION Statement Processor (Part 3 of 4) 
Refer to Chart 08. 



#A1»»»»» 
CATAL 



*»*«A2«**« 
* LINK 



•A3«***» 
STDLBL 



#»»A4»*»*» 
PARSTD 



••••A5*«»»* 
USRLBL 



•CHECK VALIDITY 

• -VALID FOR BG 

* ONLY- «K1 



•*»*»C2********* 
♦NVOERR FG 

•CHECK VALIDITY 

♦ -VALID FOR 

* BG ONLY- »K1 



NO .♦ BG • 




...•. PARTITION 


* 










X ♦. .♦ 




*•*•» *YES 




♦ BM • 




♦ C2* 




• • . 




# . 




NVSERR 




X 




••••»C3»********* 


•LBLOUT FE» 


»-•—•-•▼#—*-*—#- 




•CHECK PREVIOUS 


• 


• LABEL 




•OPERATIONS »K1 


* 



•#*»«B^**»****»** 
•LBLOUT FE» 

•CHECK PREVIOUS ♦ 
» LABEL ♦ 
•OPERATIONS • Kl * 



»»***C4********* 
•SET TRK. INDEX 

• TO BEGIN. OF 

• PARTITION STD 

• LBL AREA IN 

• ALLOC TABLE 



•CHECK PREVIOUS 
• LABEL 
•OPERATIONS *K1 



♦ SET THE • 
INDEX TO BEGIN. 

• OF USER LABEL 
• AREA IN TRK • 

• ALLOC TBL • 



PCILSUP X 


PCILSUPR .». 


••••»oi«***»»»**« 


02 •. 


•CHKLNK FB» 


■ * • 


•-»-»-#-*-•-#-»#-# 


.» CATAL 


• CHECK SYSLNK ♦ 


•. OPTION 


• ASSIGNMENT ♦ 


•.SPECIFIED 


• AND TYPE »K1 * 


*• •• 



•»«*D3*»*«*»»» 
SET INDEX TO 
BEGIN OF STD 

LABEL AREA 
IN ALLOC TBL 



••FL**»*»«* 
• SET THE • 
EXEC SWITCH 
TO OFF AND 
LINK SH. ON 



X 

•#*##E2**»»**««** 
•CHKLNK FB* 

• CHECK SYSLNK ♦ 

• ASSIGNMENT • 

• »K1 • 



TURN OFF 

BNPMSK IN 

JBCSW5 

*J4 



X 

•*E4*****»» 

• SET • 

• REMAINING 
TRK CAPACITY 

• TO INDICATE 

• NEW AREA • 



ZERO KEY 

AND DATA 

LENGTH 



GOCAT X 

• SET CATAL • 

• SWITCH 

• ON 



•*G2******* 
« SET EXEC • 

• SWITCH OFF 
♦ LINK SWITCH 

• ON 



«»*»«G4 •*••••••• 

•LBLOUT FE 

• CHECK LABELS 



USRLBL1 

• SET ♦ 
* REMAINING 

» TRK CAPACITY 
» TO INDICATE 

• NEW AREA ♦ 



•»»«H5»»»»»»»»« 

• RETURN TO • 

• CALLING SEQ * 



• J4 
BNPMSK IS 
BLOCK NOT 
PRESENT 
INDICATOR 



IF AN ERROR IS 
FOUND. RETURN 
IS NOT TO THIS 
ROUTINE. 
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Chart EP. $JOBCTLG - OPTION Statement Processor (Part 4 of 4) 
Refer to Chart 08. 



**** 

* * 

* A3 * 

* * 
**** 



****A1********* 

* * 

* SYSPRM * 

* * 
*************** 



.*CHAR STRING*. 

FIELD. 

♦.EXHAUSTED.* 



***** 
*BM * 
* C2* 



.* IS *. 

* CHAR * 

STRING GT 8 



SYSPRM X 




ST1L0K .*. 


*****B1 ********** 


B2 *. 


* LOAD ADDR 


* 


.* IS *. 


* OF COMM 


* 


.* NEXT CHAR 


* REGION 


* 


*. A QUOTE 


* EXTENSION 


* 


*. 


* 


* 


*. .* 


************** 


*** 


*. .* 


X 




*NO 


.*. 




MV0U0 X 


CI *. 




**C2******* 


.* *. 




* 


NO .* SYSPARM 


*. 


* RESET 


...*. SUPERVISOR 


.* 


* BRANCH 


*. 


* 


* AT 


*. .* 




* ST1LOK 


*. .* 




*********** 



*****D1 ********** 

* * 

* GET ADDR * 

* OF * 

* SYSPARM * 

* FIELD * 
***************** 



COMM 
REGION 
EXT 
*. 



*****P1 ********** 
♦PICK UP POINTER* 

* TO OPERAND * 

* AND SAVE AREA * 
*FOR CHAR STRING* 

* * 
***************** 



*****B3********** 

* MOVE CHAR * 

* TO SAVE AREA * 

* AND SAVE AREA * 

* POINTER * 

* * 
***************** 



* A2 * 

* * 
**** 



****E2********* 

* * 

* NOLINK * 

* * 
*************** 



**F2******* 

* SET LINK * 

SWITCH 

TO 

-OFF- 

* * 
*********** 



*****P3** ******** 

* MODIFY BRANCH * 

* AT STILOK * 

* TO GO TO * 

* MVQUO * 

* * 
***************** 



NDSCAN .*. 

E4 *. 

.* DID * 

.* A BLANK 

...X*. OR COMMA 

*.END SCAN 

*. .* 



***** 
*BM * 
* C2* 



*****E5********** 

* COMPUTE * 
POINTER FOR * 

NEXT * 

* ENTRY * 

* * 
***************** 



.X* 



*****P5********** 

* MOVE LENGTH * 

* AND PARAMETER * 

* TO * 

* SYSPARM * 

* FIELD * 
***************** 







Gl *. 






.* IS * 


. NO 


* 


CHARACTER 


X...* 


* 


A OUOTE 
'*. .* 


X 




*. .* 


***** 




*YES 


*BM * 






* C2* 






* * 




X 


* 




**** 


NVSERR 




* * 

* A2 * 

* * 
**** 



****H2********* 

* * 

* NODUMP * 

* * 
***************, 



**J2******* 

* SET DUMP * 

INDICATOR 

-OFF- 



*********** 



****H3********* 

* * 

* DUMP * 

* * 
*************** 



**j3******* 

* * 
SET 

DUMP 
INDICATOR 

* -ON- * 
*********** 



****G4********* 

* * 

* OPTLOG * 

* * 
*************** 



**H4******* 
SET PROGRAMMER 

* LOGICAL * 
* INDICATOR 

* -ON- * 
* * 

*********** 



*****j4********** 

*LSTOUT BE* 
*_*-*.*_*-*_*-*-.* 

* OUTPUT * 

* ON SYSLST * 

* * 
***************** 



****K5********* 

* RETURN TO * 

* CALLING SEQ * 

* EL-F3 * 
*************** 
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Chart FA. $JOBCTLG - Time Stamping Subroutines 
Refer to Chart 09. 



GETIME 



•A2«»»*» 
GETDUR 



*A3»«»»# 
TIMOUT 



»A5««»»« 
OPNLNK 



CLEAR TIMER 

STORE AREA 

-TIMEH- 



GETDUR 

#**»»C1»**»»**»« 
•LOAD THE TIMER 

* AND TIME OF 

* DAY INTO REGS 

* AND 1 



» SHIFT RIGHT 8 

* BYTES 
♦DISCARDING THE 

* LOW ORDER 

* TIMER BYTE 



STORE 
LENGTH 
IN CCH 



»SUB RO FROM Rl * 
♦SUBTRACTING THE^ 
♦TIMER FROM THE ♦ 
♦ TIME LEAVING ♦ 
♦ACT TIME OF DAY^ 



CALCULATE 

AND 

STORE START 

TIME IN LOCS 

^TIMEH- ♦KS 



••♦♦^^♦♦♦♦♦^ 

♦ CONVERT 

♦ 300THS 

♦ WRKRG3 TO 

♦ SECONDS 



•»*«*H1 ♦♦♦♦♦♦♦♦ 

♦ DISREGARD 

♦ FRACTIONS OF 

♦ SECOND AND 

♦ CONVERT TO 

♦ MINUTES 



•••••02+* ******* 

♦ CONVERT THE 
♦HOURS, MINUTES, 

♦ AND SECONDS 

♦ TO DECIMAL 



•»»+£2*** ****** 

* UNPACK ♦ 
♦THE HOURS, ♦ 
♦MINUTES AND^ 
•SECONDS TO • 

• BCD ♦ 



MOVE 

TIME 

INTO 

BUFFER 



•»E3*»»«#»» 

♦ TURN ON • 
TIME STAMP 

ON SYSLOG 
SW. JBCSW4 

♦ BIT 3 ♦ 



##»«F2**«»**« 

INSERT 

DELIMITER 

AT TIME 

AREA 



•**G2******** 

RETURN TO 

CALLING SEQ 



•••••F3*»»*»»»« 

♦ SET CCW 

♦ CHAIN TO 

♦ SPACE OVER 

♦ PARTITION ID 



.♦ MULTI- ♦ 

. PROGRAMMING 

♦.ENVIRON- .♦ 

♦.MENT .♦ 



#»»«»H3^^^^^^^^^ 

♦ SET CCW CHAIN 

♦ TO SUPPRESS 

♦ SPACING 
♦OVER PARTITION 



.♦ TIME ♦. 

STAMP ON ♦. NO 
SYSLOG SW .♦... 

ON .♦ 



»*Ct******** 

* TURN OFF 
TIME STAMP 

SWITCH 
' JBCSW4 

• BIT 3 



•»##«D4» 

♦ SUBTRACT i 

♦ FROM MSG 

♦ LENGTH AND 

♦ STORE IN MOVE 
•TO BUFFER INST. 



PUT TIME 

IN 
BUFFER+72 



♦SET SYSLNK 
FILE AS 
CLOSED 
INDICATOR 



*»»*C5* ******* 

LOAD ADDRESS 

OF DIB TABLE 

INTO 

WRKRG1 



• D5 ♦ 

ZERO 
SYSLNK 
ADDRESS 

ENTRY 



RETURN TO 

CALLING 
SEQUENCE. 



.♦ LOG ♦. 

ON SYSLST 

JBCSW3 

. BIT 3 . 



LOG STATEMENT 
ON ♦ 
SYSLST 



♦ SAVE THE 

♦ SECONDS IN 
♦Rl AND CONVERT 

♦ TO HOURS 



TIM0UT1 

«»ft*«J3»*»*»**»«» 
♦MSGOUT BE^ 
•— ♦■*••— ♦-»—#-#-#— # 

♦ OUTPUT ♦ 

♦ TIME OF ♦ 

♦ DAY ♦ 



«##J4«#«««*»« 

RETURN TO 

CALLING SEQ 



• •♦* 
♦ D2 



♦ B4 ♦ 

• * 
♦•♦♦ 



♦K5 
IF THIS ROUTINE IS 
ENTERED AT GETDUR, 
TIMEH HAS JOB START 
TIME. IF ENTERED AT 
GETIME, TIMEH IS 
RESET TO CURRENT TIME. 
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Chart FB. $J0BCTLG - Miscellaneous Subroutines (Part 1 of 3) 
Refer to Chart 09. 



#A1»#»*# 
SCNINT 



X 

•**«»B1**»****»** 

• GET NICL ♦ 

• ENTRY FOR • 
♦THIS PARTITION ♦ 

• AND CLASS * 
♦INTO P0INT3 ^J2^ 



CHKLNK 



LOAD SYSLNK 

LUB ENTRY 

DISPLACEMENT 

INTO WRKRG3 



RSPASG 



RSTASG 



NO .♦ IS ♦ 

THIS SYSTEM 

♦. CLASS .♦ 



LOAD ADDR. 

OF INTO 

R3 FOR SYS 

CLASS 

INDICATOR 



LUBCOUNT 

»»#»#D1«»«**»»» 

♦ LOAD 9 INTO 

♦ POINT3 

♦ INDICATING 

♦ NO. OF 

♦ SYS. LUB 




SAVE NICL 

ENTRY FROM 

POINT3 IN 

SNICL FOR 

LUBSCN 



LOAD FICL 
ADDRESS 

INTO 
POINT2 





♦ NO 


* 


. YES 


• 


ASSIGNMENT 










• 






♦ • ■♦ 




. 








X 




♦ NO 




♦ FG ♦ 

♦ Gl» 

• • 

LNAERR 


*#»»»E2«»*****»** 


* 








• 


GET 








DEVICE 






• 


TYPE 






* 






* 




X 








• ♦• 








F2 ♦. 








• ♦ ♦ 








♦ IS 


• 


NO 




DEVICE 








♦. A DISK 


♦ 


. 



INITIALIZE 

FOR TABLE 

SCAN 



»»*«E3* ##*•#•##• 
UASCAN FC^ 

RESET TO ♦ 

STANDARD ♦ 

ASSIGNMENTS ♦ 




X 
♦UASCAN 



RESET TO 

STANDARD 

ASSIGNMENTS 



INITIALIZE 

FOR 
TABLE SCAN 



LOAD ADDRESS 

OF INTO R3 

FOR SYSTEM 

CLASS 

INDICATOR 



INITIALIZE 

FOR TABLE 

SCAN 



RESET 

PUB 
FLAGS 



X 

•♦»#»E5 # ^ ###,#W# * 

♦logchk bg^ 

♦ rIsIt" ♦ 

♦ LOG/LST ♦ 
♦ASSGN SWITCHES ♦ 



RSPASG 

»##»#F3» 

♦ LOAD ADDRESS 

♦ OF 1 INTO R3 

♦ FOR PROGRAM 

♦ CLASS 

♦ INDICATOR 



»*«*«F4»*«*«*« 
♦RASCAN 

♦ RESET 

♦ PUB 

♦ FLAGS 



♦♦F5^ 

♦ CLOSE 
SYSRDR DFB 
SYSIPT DFB 
SYSLNK DFB 

♦SYSLST DFB 



GET FICL 

ENTRY FOR 

THIS CLASS 



♦ ••••(■^♦♦♦♦♦♦♦♦^ 

♦ DOUBLE FICL 

♦ ENTRY AND ADD 

♦ TO LUBADD TO 
♦POINT TO ADDR. 

♦ OF FIRST LUB 



•»»*G2 ♦♦♦♦♦♦# 

♦ RETURN TO 

♦ CALLING 

♦ SEQUENCE 



♦J2 
FORMAT FOR LOCS 
NICLS AND FICLS 
WHERE— 

SS = SYSTEM CLASS 
PP « PROGRAM CLASS 



***«*G3^^^^^^^^ 


*##*#G4#»*##»»#»# 


X 


♦SCNINT FB^ 


♦ LOAD ADDRESS ♦ 


«**«G5 ♦♦♦♦♦♦♦♦♦ 




♦ OF ♦ 


♦ RETURN TO 


♦ INITIALIZE ♦ 


♦ 1 INTO R3 ♦ 


♦ CALLING SEQ 


♦ FOR SCAN ♦ 

* OF TABLE ♦ 


♦ FOR PROGRAM ♦ 
♦CLASS INDICATORS 


♦ 





»»»J1«»*»**« 

STORE LUB 

ADDRESS IN 

SCLBAD FOR 

LUBSCN 



RETURN TO 
CALLING SEQ 



. BG . F2 . Fl . 

IssIppIssIppIssIpp^nicls 
IssIppIssIppIss!ppIficls 



1. WHEN THIS ROUTINE IS ENTERED. 
POINT1 EQUALS 1 FOR PROG CLASS 
AND FOR SYSTEM CLASS. 

2. CALCULATE A DISPLACEMENT FROM 
PIK (SEE CHART K5). 

3. ADD THIS DISPLACEMENT TO LOCS 
NICLS-2 TO GET PROPER ENTRY. 



BG F2 Fl 

PIK 10 20 30 

DISP FOR SS 02 04 06 

DISP FOR PP 03 05 07 
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Chart FC. $JOBCTLG - Miscellaneous Subroutines (Part 2 of 
Refer to Chart 09. 



3) 



*A1«»*»* 
UNSCAN 



•••A3***** 

IOROUT 



«»#«»A4«*»*»«»«* 

• EXECUTE 

• MOVE 
•INSTRUCTION TO 

• SET SCNLUB 
•WITH LUB ENTRY 



B X 

»»*A5«*««***« 

SAVE 

CURRENT 

JIB POINTER 

IN 

SAVE AREA 



UASCAN 

*»***B1« 
•LUBSCN 



SET UP P0INT1 

WITH LUB 

TABLE ENTRY 



CI •. 

• ANY • 
MORE 
ENTRIES 



RESET LUB 

TO 
STANDARD 



X 

**#D2*»»«»««* 

RETURN TO 

CALLING SEQ 



TRAFFIC 
BIT 

ON 



•D3»*«*» 
SVC 7 
WAIT 



UNASGN 

•GETPUB F 

•"" GET ADDRlsi 
» OF PUB 
» TABLE ENTRY 



• •J2 PICK UP UN- 
•ASSGN MASK FOR 
•THIS PARTITION 





C5 •. 






.♦ ANY ». 




NO .* 


MORE • 




• • •*. 


ENTRIES 




• • 


**. #"* 




X 






*** 


•YES 










Bl • 


. • 






...» D5 


« 


*•• 


• • 






. *•• 




DQXTNT 


X 




#•* 


►«D5»»**»«»» 


t* 


• 


SET ADDR OF 


* 




FAVP FROM 


• 


• 


COM REG. 




# 




* 


• 




» 





El 


«. 






















*< 


iES 




SYSUSE 

». 

• • « • 

'•NO 


•* 


* 


X 
• *• 

• 




X 








* C4 


















• •* 


ARND 


X 








*****F1*»»*«» 






• 


IIBSCN 


FD* 




• 


-*—#-#—#-#—#• 










SET UP POINT2 








WITH JIB ADDR 






» 


IF ANY 




• 






) 


( 










■ •■ 










Gl •. 










• * * 










.♦ ANY 




MO 


* 


JIE 


>S 




* 


.... 



»»»»«E4*»»»«*»*« 

♦ TURN OFF 

• ASSGN FLAG 

* IN PUB FOR 
•THIS PARTITION 

* PUB BYTE 7 



#*E5»«»»»*« 

MOVE FAVP 

ENTRY TO 

JIB 



EXTENTS 

IN 
JIB 



G2 • 
• ••» 
STDASSG 



•«»62**»«*«» 

SAVE 

CURRENT JIB 

POINTER 



•»«F5«******* 

DEQUEUE JIB 

ENTRY AND 

CLEAR FIRST 

THREE BYTES 

OF JIB 



G4 •. 

« 

SYSUSE 



* Bl • 

« # 



G5 ♦. 
.* WAS •. 

JIB ENTRY •. NO 
FOR ••... 

.ALTERNATE.* 



• YES 

X 

••** 
* 
C4 * 



NULL JIB 
POINTER 
IN LUB 



• J2 
THE CODING FOR THIS ROUTINE 
ACTUALLY APPEARS IN THE *JOBCTLG 
PHASE. THE CHART REFERENCED IN A 
DIFFERENT PHASE REPRESENTS LOGIC 
IDENTICAL TO THAT FOUND IN 
THE SJOBCTLG PHASE. 



• A4 • 

• • 
•••» 



LUB 
HAVE PUB 
. PTR. 



IS 
DEVICE 
TAPE 



•••K4**«*«*« 

RESET TO 

STANDARD 

MODE 

PUB BYTE 5 



* A5 • 

» • 

•••• 
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Chart FD. $JOBCTLG - Miscellaneous Subroutines (Part 3 of 3) 
Refer to Chart 09. 



LUBSCN 



GETPUB 



«#»#A4****» 
RASCAN 



GET ADOR 

OF PUB TBL 

ENTRY INTO 

P0INT1 



COMPUTE THE 

ADDRESS OF 

NEXT ENTRY 

AND SAVE FOR 

NEXT SCAN 



•PUB PTR PRESENT* 



••*C2»*«»»««* 

COMPUTE THE 

ADDRESS OF 

THE PUB' AND 

STORE IN 

P0INT3 



»##B3«*»»***# 

RETURN TO 

CALLING SEQ 



RASCAN 

#«#»*B4» 
•LUBSCN 



GET LUB 

TABLE 
POINTER 



»»»#D1 

LOAD THE 

RESIDUAL LUB 

COUNT FROM 

SCNICL INTO 

WRKRG1 



#*• 



DECREMENT 

RESIDUAL CNT 

AND SAVE IN 

SCNICL FOR 

NEXT SCAN 



SET SCNLUB 

TO THIS LUB 

ENTRY 



«D3«»*«« 
JIBSCN 



YES .» JBSLUB «. 
...*JIB POINTER IND» 
-ICATES X«FF« 
». *J1 .• 



CALCULATE 
ADDRESS 
OF NEXT 
JIB *J4 



•»#G3«»«»*««« 

STORE NEW 

PUB AND JIB 

POINTERS 

IN 

SCNLUB 



• Jl 

END OF CHAIN.. 

DECK 

IF NO JIBS ARE 
CHAINED, RETURN TO 
CALLING SEQ 



LOAD ADDR. 

OF 
SYSLOG LUB 

IN 
A WORK REG 



RANXJB X 
**#«*B5»» 
•JIBSCN 



.♦ IS •. 

.• JIB •. NO 

.EITHER ALT OR 

«. STD .• 



RASSGN 

###«»F4» 
•GETPUB 



GET ADDRESS 

OF 

PUB ENTRY 



PICK UP MASK 

FOR OWNERSHIP 

FLAG. «K4 



• TURN ON THE 

• ASSIGN FLAG 

• IN PUB FOR 
•THIS PARTITION 



• J4 
JIB ADDRESS EQUALS 
DISPLACEMENT INDEX 
FROM LUB. MULTIPLIED 
BY 4, PLUS THE 
STARTING ADDRESS OF 
THE JIB TABLEt JIBADD. 
NOTE - THE LUB USED IN 
THE PRECEEDING 
CALCULATION IS 
IN LOCATION 
SCNLUB. 



• K4 
THE CODING FOR THIS ROUTINE 
ACTUALLY APPEARS IN THE SJOBCTLG 
PHASE. THE CHART REFERENCED IN 
A DIFFERENT PHASE REPRESENTS 
LOGIC IDENTICAL TO THAT 
FOUND IN THE SJOBCTLG PHASE. 
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Chart FE. $JOBCTLG - Label Processing Subroutines (Part 1 of 2) 
Refer to Charts 08 and 09. 



#»#«A1»*»»« 
LBLOUT 



.♦ IS *. 

STATEMENT 

IN PROPER 

SEQ 



CI ♦ . 
.♦ IS ♦ . 

LABEL BLK 
PRESENT 



♦ SET BLOCK * 

NOT PRESENT 

FLAG 



El • . 
.# IS ». 

« FILE 

SEQUENTIAL 

♦ . DEVICE . 

♦.TYPE .• 



.♦ IS ♦ 

THIS 

STANDARD 
. LABEL 



#»«C2*»»**»*» 

RETURN TO 

CALLING SEQ 



* CALCULATE » 

* DISPLACEMENT * 
♦INTO TRK ALLOC ♦ 
♦TABLE FOR THIS ♦ 
♦LBL + PARTITION^ 



LOAD START 

AND END TRK. 

NO. INTO 

WRKREG1 




#»*A4»»»»»»*» 

LOAD DATA 

LENGTH INTO 

WRKRG3 AND 

ADD KEY 

LENGTH 



• YES 



•»***F1«#«»*»*«* 

• LOAD ADDRESS 
« OF LAST SD. 

• ENTRY FROM 

• LABEL SAVE 
•AREA TO WRKRG1 



• SET FLAG 



LBLOUTOB X 

♦ PUT END TRK 

♦ NO. INTO 

♦ WRKRG4 

♦ FROM 

♦ WRKRG1 



• SHIFT 

• WRKRG1 

• SO IT WILL 

• CONTAIN ONLY 

• START TRK NO. 



♦PUT START TRK. ♦ 
♦IN COMPARE INST^ 

♦ FOR EOF LOOP ♦ 

♦ CONTROL ♦ 



X 

•**B4*»*^*»»* 

STORE 

LENGTHS 

INTO 

WRITE AND 

CHECKS CCWS 



COMPUTE 

SPACE NEEDED 

ON TRACK 

FOR DATA 



• •^^♦♦♦♦♦♦^ 

GET 
REMAINING 

TRK 
CAPACITY 



AND WRKRG1 TO 

NO. BYTES PER 

TRACK 



LBLOUT1 

«*»*«B5*»«»**«**' 

♦ CALCULATE 

♦ NEW REMAINING 
•TRACK CAPACITY 



C5 ♦. 

.♦ENOUGH *. 
♦ ROOM • 

ON 
♦. TRACK .♦ 

"'♦YES 



CALCULATE THE 
NEW REMAINING 
TRK. CAPACITY 



ENOUGH 

ROOM ON 

TRACK 



LOAD CURRENT 

TRK. NO. IN 

WRKRG1 






LBLOUTOA 

• *LOAD*START* 

• AND END 

• TRACK NO. FOR 

• STO LABEL IN 
» WRKRG1 



»»#*»J1*»*»««»*» 

• REPLACE END 

• TRK. NO. WITH 

• UPPERHEAD 

• NO. IN 

• WRKRG1 



H3 *. 
.• IS *. 

NO .• THIS A • 
...... NEW AREA 


!• 


H4 «. 
.♦ LAST ». 
YES .TRK. OF AREA*. 
...». EXHAUSTED .• 








I '♦YES 




X ». .• 
««*♦# *NO 

• FG • 

• C3» 


I X 

. *#**#J3*«*##»*» 

• SET THE 

• WRITE DISK 

• HEAD NO. TO 

• START TR-1 
• •' 


* 


LAXERR '. 
X 

» INCREMENT * 

• TO NEXT TRK ♦ 

♦ AND STORE IN * 

* WHHADD • 

• * 


'. x! 
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Chart FF. $J0BCTLG - Label Processing Subroutines (Part 2 of 2) 
Refer to Charts 08 and 09. 



•***»BL**** 



* 


INITIALIZE 


• 


* 


LOAD 


LINK 


« 








• 


SEEK TRACK 






REG FOR 










AND RECORD 






I0R3U.T 










NUMBER 




* 


RETl 


JRN 










X 






) 


X 

< 










• « 


###ci««»*«**»## 




#*»C2* >»•*•»* 










* 










* 








• 


UPDATE WRITE 


• 


• 


SET HEAD 


■ * 










RECORD 




• 


NUMBER 


* 








• 


NUMBER 






FOR EOF 










• 


AREA 


« 


* 


WRITE 


* 










X 




> 
LBL0UT2D .* 


; , 










*i 


*»»ni***«*»*««* 




D2 *. 




»»»»D3»*»*« 




•MTNCNT BK» 




•" FIRST '• 
TRK OF THIS 


. NO 


IOROUT 


FC 


» 


RELEASE 


♦ 


*! 


...X ISSUE 




• 


CONTROL 


# 




*. AREA .• 




» I/O 


* 


*« 




>•? 




**» 


# »* 









LOAD ADDRESS 

OF THE 

SYSRES CCB 

INTO REG1 



SET KEY 

LENGTH 

TO 8 



.» START ». NO 
». OF .*... 

•.NEW AREA .* 
*• •* 


* 
> • 


RESTORE • 
DATA LENGTH • 
FROM WRKRGl * 


• YES 




X 

»»*«#G1«*«**«*»»» 

» LOAD DATA • 

• LENGTH INTO • 

• WRKRGl FOR • 
» SAVING ♦ 


OPLBNF X 

••»»G2»»******»* 
IOROUT FC 

ISSUE 
• I/O • 



SET DATA 

AND 

KEY LENGTH 

TO ZERO 



•MTNCNT 

•""*" ~sIlZE~ 
• SYSTEM 



»#*J2»»»«»»«» 

RETURN TO 

CALLING SEQ 
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Chart FG. $JOBCTLG - Error Subroutines 
Refer to Charts 08 and 09. 



•»«»AL*»*****»* 



•A2 
ENTRY IS FROM OPTION 
STATEMENT PROCESSOR. 
LINK AND CATAL 
OPTIONS INVALID FOR 
FOREGROUND PARTITION. 



»A4 
EF-F3 
EN-D2 
FE-B1 



»*»B2»««*»*«« 

RETURN TO 
CALLING SEQ 



Rl X 

*«B5*»««*»» 

» TURN ON * 

AUTO CANCEL 

SWITCH 

JBCSW4 

« BIT5 * 



••Cl*»*»***»»« 

POINT TO • 

DESIRED • 

MESSAGE • 

1SOOD » 

• F3 • 



LAXERR X 

**«««C3*ft»*** 

• POINT TO 

• DESIRED 
» MESSAGE 

• 1L10D 

• *F3 



NDTERR X 

»*»#»C4»**»*« 

• POINT TO 

• DESIRED 

• MESSAGE 
» 1A20D 

• *F3 



OTSERR 


X 




**«1>*C5«*»*«*« 


**• 




POINT TO 


* 




DESIRED 






MESSAGE 






1S10D 




»».! 


• F3 


*.» 



• •••* 

• BM • 

• D2» 



*»D2*»***** 

• TURN ON * 
AUTO CANCEL 

SWITCH 
JBCSW4 

• BIT5 • 



•*»»«E2**»****« 
• REINITIALIZE 





• FB • 

• D2» 

• • 
• 

I X 

>**G1*« •••»•••• 

POINT TO • 

DESIRED • 

MESSAGE • 

ICiOA • 

• F3 • 


• . 

• « 
• 
» 
• 
» 
• 


X 

F2* #, ». 

•" INPUT '•. NO 

FROM ••... 
*. SYSRDR .» 
». .• 

"•YES 

X 

**»G2+** ******* 

CHANGE • 

ACTION CODE • 

OF MESSAGE • 

TO I • 

• 


• F3 






.MESSAGE 


. DESCRIPTION 




.1A200 


. INVALID DEVICE TYPE 




.1C10A 


. PLEASE ASSIGN (SYSRDRi 
. SYSIPT.SYSLNK) 




.1C3NI 


. PROGRAM NOT FOUND 




.1L10D 


. LABEL AREA EXHAUSTED 




.1S00D 


. INVALID STATEMENT 




.1S10D 


. STATEMENT OUT OF SEQUENCE . 


ERF 

• •4 

• 

» 
• 








X 
••••• 

• BL • 

• B3» 

• • 

OERRTN 




« 


^X 






X 

•*H2******* 

• MODIFY • 
BRANCH * 
VECTOR • 

TABLE * 

• • 





•*#»»J2»«*»»»*«»» 

• POINT TO • 

• DESIRED * 



X 

• •••» 

• BM • 

• 02^ 



Charts 139 



Chart GA. $JOBCTLJ - RELSE and HOLD Statement Processors 
Refer to Chart 11. 



RELEASE X 

•••••Bl«»*««*««»* 

* LOAD P0INT4 ♦ 

* WITH ADDR OF * 
•INSTR THAT SETS* 

* HOLD FLAG OFF ♦ 

* IN PIB * 



»»#*»B3»**»»*»**« 
» LOAD P0INT4 # 
» WITH ADDR OF » 
►INSTR THAT SETS* 
► HOLD FLAG ON » 
* IN PIB. • 



« SET HOLD * 

FLAG ON OR 

OFF IN 

CORRECT 

• PIB. *B5» 



*B5 

1. POINT4 CONTAINS ADDR 
OF CORRECT 
INSTRUCTION. 

2. POINT3 CONTAINS ADDR 
OF CORRECT PIB. 

3. THE HOLD FLAG IS 
BIT 4 OF PIB+12. 
1 EQUALS HOLD 
EQUALS RELEASE. 



C3 *. 






C4 •. 


.» MULTI *. 








NO .»PROGRAMMING*. 






DID **. YES 


...... ENVIRONMENT .• 






BLANK END ...... 








.LAST SCAN.* 
















*. .* X 


• YES 






•NO »*»•# 

• BB • 

• B4» 

CONTROL 


'. X 






X 


. # »»»»D3*******»*» 






»»D4»«* 


•SCANR2 BF# 




SCANR3 BF* 










» POINT TO 1ST * 


• 


POINT TO 2ND * 


• OPERAND » 






OPERAND ♦ 


» -Fl OR F2- » 


* 




-Fl OR F2- * 


\ X 






X 










E3 *. 






E4 *. 


.* DID *. 








. NO .» A BLANK •. 






DID ». NO 


.X..*. OR COMMA .• 






BLANK END 


• .END SCAN .» 






. SCAN .• 
















•. .• X 


• YES 






•YES *•••• 

*BM * 
* C2» 
. • • 


* Ix. 








X 






NVSERR 


.H0LD1 .•. 








F3 ». 
















. NO .» OPERAND *. 








X...*. LENGTH EQ .» 








*. 2 CHAR .* 









»»•»» G 3 »»#•*•♦* » 
•LOAD PIB TABLE 
•ADDR IN POINT2 
•AND FOREGROUND 

• 1 PIB ADDR IN 

• POINT3 



♦LOAD FOREGROUND* 

* 2 PIB ADDR » 

* IN POINT3 • 
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Chart GB- $JOBCTLJ - UCS Statement Processor (Part 1 of 2) 
Refer to Chart 11 • 



*A4 
THE CODING FOR THIS ROUTINE ACTUALLY 
APPEARS IN THE SJOBCTLJ PHASE. THE 
CHART REFERENCED IN A DIFFERENT 
PHASE REPRESENTS LOGIC IDENTICAL 
TO THAT FOUND IN THE SJOBCTLJ 
PHASE. 



POINT TO 1ST 

OPERAND 

-SYSXXX- 



DID 
COMMA END 
. SCAN 



UNIT 

CLASS EQ 





•••FL«>«***«« 

LOAD LUB 
POINTER FOR 
1ST BG PROG 

UNIT IN 

WRKRGL 




B2 


B3 ». 




.* UNIT «. 






IGNORE OR *. YES 


.* IS « 


YES 


UNASSIGNED .»... 


....X». ASSIGNMENT 




. .* 


*. IGN .• 


. 












X 


• NO 


• NO 


•BB • 




X. 


• B4« 




X 










X 


*GU * 


CONTROL 




• CI* 




C2 •. 


# • 










VALID ». NO 


NDTERR 




DEVICE 






. TYPE .» 






*. «C5 .» 







• D4 



♦ C5 
DEVICE MUST BE A 1403 
WITH UCS FEATURE. 
-DEVICE TYPE CODE HEX 42- 



• MOVE CLASS AND 
•ORDER INTO CCB. 

• -WRKDFB+6- 



POINT TO 2ND 

OPERAND 
-PHASE NAME- 



•• DID •. 

A BLANK ♦. 
OR COMMA 
.END SCAN .* 



_. THE SUBROUTINE CNUNCO RETURNS 
THE UNIT CLASS IN THE LOCATION 
UNCLOR, BYTE 0. 

EQUALS SYSTEM 

1 EQUALS PROG 

2. UNCLOR, BYTE 1, CONTAINS 

THE UNIT ORDER -PUB POINTER-. 



SVC 23 - LOAD 

THE UCS PHASE 

HEADER INTO 

BUFFER. 

-LODNAM+8- 



* COMPUTE LUB « 




.♦ 


«. 




» TABLE • 


. NO .* OPERAND «. 




* DISPLACEMENT » 


X.. 


.*. 1^9 CHAR IN 




•TO DESIRED UNIT* 




*. LENGTH .» 




• WITHIN CLASS. • 










X 










» *YES 








• BM 










• C2 




































NVSERR 








X 




X 




•*«**H1********** 




•••»»H2»**»»*»»»* 


•CHKASG BK* 




•SET PHASE NAME 








• SAVE AREA AND 




•GET LUB AND PUB* 




• BUFFER TO 




• ADDRESSES AND * 




•BLANKS SAVE PHS* 


» CHK ASSGN * 




•NAME IN LODNAM 


* 


X 














X 




* B2 * 












J2 ». 




• »*• 












.* MPS «. 


NO 








». ENVIRC 


DNMENT . 


».. 



IF PHASE IS CATALOGED THIS 
VALUE CHANGES TO THE PHASE 
LOAD ADDRESS. BIT 7 ALWAYS 
BECOMES A ZERO 



MODIFY UCS 

LOAD CCWS 

*J5 



• J5 
L0DCCW2-SET TO NONFOLD OPCODE 

-HEX FB-. 
L0DCCW2+4-SET CHAIN FLAG TO 
CHAIN WRITE CCW 
-HEX 60-. 
L0DCCW3-SET ALLOW DATA 
CHECK OPCODE 
'HEX 7B- 



»»»**K2*»»*«»**»« 
•SET 3RD BYTE 0F« 

• BUFFER, • 

• LODNAME+10, • 

• TO HEX FF. • 

• *G4 * 



Charts 141 



Chart GC. $JOBCTLJ - UCS Statement Processor (Part 2 of 2) 
Refer to Chart 11. 



UCSDN 

*»»*»C1* 
•MTNCNT 



DID BLANK 

END LAST 

. SCAN .< 



«C3 
THE PHASE IS LOADED INTO 
THE BUFFER LABELED LODBUF 



POINT TO 

NEXT OPERAND 

•03 



•***D1******** 

SVC 4 

LOAD THE UCS 

PHASE FROM 

CI LIB 

«C3 



«*#»F1* 
STORE THE UCS 

CCW ADDR, 

LODCCW, INTO 

WRKDFB CCB 



.». THIS OPERAND MAY BE 




D2 *. FOLD, BLOCK, NULMSG 




• DID «. 




BLANK OR ». NO 




COMMA END 




SCAN .» 








». .* X 




#YES *#*•# 




*BM • 




* C2« 












X NVSERR 




.•. UCS3 .*. 


UCS4 .*. 


E2 •. E3 ». 


E4 • 


» *. • » *• 


.* 


LENGTH ». NO .* LENGTH • . NO 


.» LENGTH 


EQUALS .♦ X*. EQUALS ...... 


....X*. EQUALS 


4 CHARS. .* X *.5 CHARS. .» 


X #.6 CHARS 



EXECUTE I/O 

AS SPECIFIED » 

IN WRKDFB 



X 

*»G2*»***** 

MODIFY LODCCW2 

• TO FOLD. « 
» -OPCODE EQUAL 

# HEX F3- • 



MODIFY LODCCW3 
» TO INHIBIT * 
* DATA CHECKS. 
• -HEX 73- • 



X 

«»G4***»**« 

MODIFY LODCCW2 

•SET CHAIN BIT* 

•OFF TO PROHIBIT* 

• WRITE. • 



*BB • 
• B4» 
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Chart GD. $JOBCTLJ - ACTION and INCLUDE Statement Processors 
Refer to Charts 11 and 12. 



.* CATALR * 
.OPTION SW ON 
». *J2 .* 



***C1*****«» 

PREPARE 

BUFFER TO 

OUTPUT ASA 

CHAR «W« 



PREPARE 

BUFFER FOR 

OUTPUT 



SETOUTPT 

»»#»»C2»****»**«* 

• SET OUTPUT * 
♦CHARACTER COUNT* 
•TO 80 BYTES IN * 

• CNTFLD * 



.UPDATE THE BLOCK COUNT 
FOR I/O AREA CONTROL. 

.WAIT FOR PREVIOUS I/O 
ON SYSLNK TO BE COMPLETED. 

.MOVE STATEMENT TO NEXT 
AVAILABLE AREA IN OUTPUT 
BUFFER, LNKBF1, FROM 
INPUT BUFFER AREA, BUFFER. 



• INCR BLOCK CNT * 

* MOVE STMNT TO » 
•OUTPUT AREA »D1« 



OUTPUT 

STATEMENT ON 

SYSLNK 



«*»*F2***«*«**» 

• SVC 7 • 
•WAIT FOR SYSLNK* 
•I/O COMPLETION • 



»**»*C3****** 


»••* 


•SCANR2 


BF* 




-•-#-»—*-•—*■ 


-»-* 


• 


SCAN FOR 


« 


• 


OPERAND 




* 




* 




X 






.*. 






D3 ». 












* BLANK 


». 


» 


OPERAND 


.» 



1ST BYTE 


*. . 

*'*YES 


X 
C4* "«. 


END 
CARD 



UNBLKD .*. 

C5 •. 
.* ANY •. 

.• CARDS IN •. 
..X*. SYSLNK OUTPUT.* 
•. AREA .» 



»«*«*E3***»***»» 

* INIT FOR 
♦COPYING SYSIPT 

* TO SYSLNK 



♦ F3 
COPYLP** 



E4 *. 

.♦ WILL ♦. 
THIS CARD ♦. YES 
FILL THE .♦... 

. OUTPUT .* 
♦.AREA .♦ 

'♦NO 



♦INCR BLOCK CNT.* 
• MOVE STMNT TO * 
♦OUTPUT AREA *D1* 



UPDOPT X 

*****E5********** 
•UPDSAV GT* 

♦INCR BLK COUNT. ♦ 
♦ MOVE STMNT TO * 
♦OUTPUT AREA ♦Dl* 



G3 *. 
.♦ HAS ♦. 
♦ SYSIPT ♦. N 
BEEN OPENED .♦. 



X 
F3 



♦ HI 
THE EXCPRG SUBROUTINE PLACES 
THE ATTENTION, ATNCUU, ROUTINE 
ADDR IN LINKR1 ON EVERY RETURN 
TO CALLING SEQ. ATNCUU IS USED 
TO DISPLAY THE ATTENTION 
MESSAGE, 1C00A. 



•AND BIT 6 OF 

SYSIPT DFB FLAG OFF. 
.SET OUTPUT CHAR 

COUNT TO 80 BYTES 

IN CNTFLD. 



♦ J2 

ENTRY AND PHASE 
STATEMENT ENTER HERE. 



SYSIPT 

END OF 

FILE 



J3 *. 

.•SYSIPT *. 

UNIT 
EXCEPTION 



•*«H4**«*»***»* 

SAVE LINKR1 * 

IN LINKR4 * 



J4 *. 
.« ANY *. 

.♦ CARDS IN ♦. NO 
.SYSLNK OUTPUT.*... 
♦. AREA .♦ 



*#*»H5**»*»*»*^ 
* SVC 7 * 
•WAIT FOR SYSLNK* 
♦I/O COMPLETION * 



K3 *. 


»***K4****»**^ 




LNKOUT G 


BLANK ♦. YES 


*-»*-*-*-*-»—#—»- 


CARO IMAGE ...... 


OUTPUT 




* ON 


». .* . 


SYSLNK 


•NO »»** 


. 


• * ♦ 




♦ F3 ♦ 


.X 


X * ♦ 


X 


•••• •••* 


• •»* 


• * 




» B4 * 


• H5 • 


• * 


• • 


••«• 


**** 
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Chart GE. $JOBCTLJ - MTC Statement Processor 
Refer to Chart 12. 



(Part 1 of 2) 



RELOCATE 

ADCONS 
*A5 



PUT ADDRESS 
OF NVSERR 
IN LINKR4 



POINT TO 1ST 
OPERAND 
(OP CODE) 



DID 
COMMA 
.END SCAN 



El •. 
.♦ IS ♦ . 

OPERAND * 
CHARACTERS 
.IN LENGTH.* 



IS 

OPERAND 
VALID 



POINT TO 2ND 
OPERAND 
-UNIT- 



B2 *. 
.* DID *. 

.* EQUAL * 
.SIGN END THE 
*. SCAN .• 





THE CODING FOR THIS 


X 


ROUTINE ACTUALLY 




APPEARS IN THE 


A4 *. 


SJOBCTLJ PHASE. THE 




CHART REFERENCED IN 


YES .* // *. 


A DIFFERENT PHASE 


...». IN COL 1 .* 


REPRESENTS LOGIC 


*. AND 2 .» 


IDENTICAL TO THAT 




FOUND IN THE SJOBCTLJ 


X *. .» 


PHASE. 


#***» »NO 




•BM ♦ 




'• C2» 




*•* : 




NVSERR X 




•**»»B4»**»»**«*« 




•TXCUU GS» 




* GET DEV TYPE, » 




» PUB ADDR, AND * 




« PUB POINTER * 





PICK UP MASK 

FOR OWNERSHIP 

TEST «A5 



•CONVERT SYSXXX 

* TO SYMBOLIC 

♦ UNIT ADDR »D3 



E2 *. 
.* IS » 

THE UNIT 
A SYSTEM 
. ENTRY 
*. *E3 .• 

"•NO 



• UPDATE WRKRG1 * 
•TO POINT TO 1ST* 

• PROGRAMMER • 

• LUB • 



*D3 
SYMBOLIC UNIT ADDR, SYST 
AND UNIT CLASS, IS 
RETURNED IN THE FIELD 
UNCLOR. BYTE IS SYSTEM 
CLASS. BYTE 1 IS UNIT 



• E3 
WRKRG1 CONTAINS THE LUB 
POINTER TO THE FIRST 
SYSTEM UNIT. 



SAVE 

OWNERSHIP 

FLAGS AND 

PUB 

NUMBER 



* ASSIGN SYSUSE 
♦TO DEVICE, GET 

♦ CLASS, ORDER 



'•YES 

X 

*»#**G1***»»*»**» 

* CONVERT TAPE • 

* COMMAND TO • 

* HEX AND » 
♦INITIALIZE CCW • 

* «G3 • 


X 

• BM • 

• C2* 

NVSERR 


♦ G2 •..! 

X 

»#»»#G2***«****** 

♦ COMPUTE LUB ♦ 

♦ TABLE DSPLT • 

♦ FOR THIS UNIT ♦ 

♦ IN WRKRG3 ♦ 


X 
Hi"*"*. 

.** IS *•. f 

». COMMAND .• 
*. WTM .• 


X 
♦CHKASG BK* 

• "check THE "• 

• ASSIGNMENT • 

• FOR THIS UNIT * 



SET CHAIN 

BIT ON IN 

CCW 



» A2 



MTC3 

««#*«J3»»»#«#*#»* 
♦SET DEVICE TYPE* 

♦ IN DVCTYP AND ♦ 
...X* SYSTEM CLASS ♦ 

•AND UNIT CLASS * 

♦ IN WRKRG3 ♦ 



.• IS ♦ 

DEVICE 
MAGNETIC 
. TAPE 



.♦. 




NDTERR 


H4 *. 






• IS • 






DEVICE 




YES 


A TAPE 




♦ . . . . 


CARTRIDGE 






». RDR .• 







K2 ». 
.♦ IS • 

THE UNIT 
IGNORED 
. -IGN- 



.*. 




NDTERR 


J4 *. 


♦ . 




DEVICE 


* 


YES 


DOWN 






















X 


♦NO 




• GF * 

• C4» 


X 










• 


• GF • 






• Al» 




NDSERR1 



X •. 

»GU • 

* CI* NDTERR 
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Chart GF- $JOBCTLJ - MTC Statement Processor 
Refer to Chart 12. 



(Part 2 of 2) 



PICK UP HASK 

FOR OWNERSHIP 

TEST »J3 



SET MODE COMMAND TO CCW. 
MOVE SYS AND UNIT CLASS 
TO CCB AS SYMBOLIC UNIT 
ADDRESS. 



DUP 

FACTOR 





INITIALIZE 

CCB AND CCW 

*A2 




SET COUNT FOR 

SINGLE I/O IN 

WRKRG4 



.* DID *. 

.* A BLANK *.YES 
•STOP THE LAST..... 
*. SCAN -• 



EXECUTE 

DESIRED 

I/O 



* NEW 
DUP 
♦.FACTOR 



SET 
ERROR 
EXIT 



PUB 


*. 


YES 


IGNORED 
























»N0 






) 


( 






#E3* ►••*•» 










RESET PUB 






OWNERSHIP 




FLAGS 


y 






X... 







POINT TO 3RD 

OPERAND 
-DUP FACTOR- 



UNASSIGN 

SYSUSE LUB 

-SET TO X«FF« 



GL *. 

» DID * 

A BLANK 

END THE 

SCAN 



EREXIT1. CONTROL 
X 

♦ BB « 

* B4» 



• CHECK DUP * 

• FACTOR AND CON-** 
•VERT TO BINARY * 



• J3 
THE CODING FOR THIS ROUTINE ACTUALLY 
APPEARS IN THE SJOBCTLJ PHASE. THE 
CHART REFERENCED IN A OIFFERENT 
PHASE REPRESENTS LOGIC IDENTICAL 
TO THAT FOUND IN THE SJOBCTLJ PHASE. 
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Chart GG. $J0BCTLJ - SET Statement Processor (Part 1 of 3) 
Refer to Chart 12. 



♦GH-F1.H4 
GJ-G2,J5 
GK-J3 



»•* X 
T .•. 

Bl *. 
.• DID * 

* A BLANK 
END LAST 

• . SCAN 



* B4* 

* • 

CONTROL 



DATE 
CONFIG= 
.MM/DD/YY 



SWITCH 
MONTH AND 
DAY REGS 



ET X 

»»ftft»C2»»*»»****» 
•SCANR2 BF» 

• r *~P0INT~T0 ~ ~» 
* CURRENT • 
» OPERAND »F5 • 


C3 •. 

.♦ ARE • 
NO .»YEAR MONTH 
...». AND DAY IN 
». PROPER 
*. RANGE. » 
X • . .* 
••••• »YES 
»BM • 
» C2» 
• ftNVSERR 






X 

02* '•. 
.• DID #. 

NO .♦ AN EQUAL » 
..•.SIGN END THE 
». SCAN .• 


# 


X 
MMDDYY .*. 

D3 •. 

NO .•* LEAP 
YEAR 



NVSERR 
NO 



E2 » 
DATE 



Fl *. 

UPSI 

**»YES 



* YEAR 

EQUAL EVEN 
•.HUNDREDS . 



ADD 1 TO 

DAY COUNT 

FOR LEAP 

YEAR 



• . NO 




• 


COMPUTE * 


LINECT ...... 




• 


NEW REMAINING * 








LINES * 


'ft. .»* X 

•YES ••*•• 




• 


PER PAGE * 








•GH * 








• A2« 
















. * 








X 






X 










C4 •. 






C5 *. 








.• NEW *. 


FIELD *. 


YFS 


• REMAINING •. 


LENGTH= .* 






COUNT .» 


6 .* 






•.POSITIVE .» 



POINT TO 

PARAMETER 

-NN- 



* SET REMAINING 
♦COUNT TO X'Ol' 

* INDICATING 
« END OF PAGE 



.» SCAN » 

ENDED BY 

BLANK 



POINT TO UPSI 

PARAMETER 

-NNNNNNNN- 



JL •. 

.• SCAN ». 
• ENDED * 

BY BLANK OR 
•. COMMA .* 



. STORE DATE 
IN SYSDAT, 
COMREG+79 



X 
A3 



COMPUTE DAY 

OF YEAR AND 

STORE IN 

COMREG 



BJF 
'•YES 



STORE DAY 

OF YEAR IN 

ALL THREE 

COMREGS 



CONVERT 
PARAMETER 
TO BINARY 



G4 ». 

.« VALUE ». 

LESS THAN 

30 OR 

. GT 99 . 



• F5 
THE OPERAND 
POINTED TO BY 
THIS SCAN MAY 
BE DATE, CLOCK, 
UPSI. LINECT, 
RCLST, RCPCH, RF. 



ft»ft*»H4ft»»**ft»*«» 

• SAVE OLD LINE • 

• COUNT AND » 
♦STORE NEW COUNT» 

• IN LINCNT • 

• -COMREG+78- • 
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Chart GH. $JOBCTLJ - SET Statement Processor (Part 2 of 3) 
Refer to Chart 12. 



• CALCULATE * 

• NEW SYSTEM » 

• TIME OF DAY • 

• AND STORE IN » 
•HEX 54-57 »K3» 



•#«*B1*»*«*»»* 

SET INITIAL 

PIK INDEX 

TO X«20« FOR 

BG PARTITION 



****D1******** 

SET INITIAL 

PIK INDEX TO 

X«40' FOR Fl 

PARTITION 

+ 16 





B2 *. 




» DISK « 




I/O FOR 




SYSLST OR 




SYSPCH 












• NO 










* C2 


*. . . 








* X 


CHKTIM 






C2 •. 










*. 


CLOCK 


#. 






*. .* 



CHKTIM1 X 

#*#*»E1********« 

• REDUCE 

• INDEX BY 16 

• TO POINT TO 
•NEXT PARTITION 



IS 

LENGTH 
= TO 4 



• E2» 



BINCON GT» 

CONVERT TIME * 

TO • 

BINARY » 



X 

Fl'*"*. 

INDEX 
= 



• ##»*GH 
•ADD CORRECTION • 
•-POINT3- TO JOB* 

• START TIME IN • 

• REG SAVE AREA • 
•FOR THIS PRTITN» 



TIMER 
EXCEEDS 
.23.59.59 



••••G2********* 
CONVERT TIME 

TO SECONDS 

MULTIPLIED BY 

300. RESULT 

IN P0INT1 



X 
•••»*H2 •♦••»*••• 

• COMPUTE 
•CORRECTION FOR 
•JOB START TIME 

• AND SAVE IN 
•REG P0INT3 «H3 



J2 *. 
.• JOB ». 

•ACCOUNTING 

INTERFACE 

•. SUPPORT . 



UPDATE 

ACCTIME TO 

NEW TIME 

OF DAY 



•INITIALIZE REG » 

• WITH DIB TBL • 

• ADDR. -P0INT4 • 
•WITH SYSLST DIB* 

• ADDRESS * 



IS «. YES 

OPERAND .»..X 
RCLST .« 



•**E3******* 

SET P0INT4 

AS POINTER 

TO SYSPCH 

DIB 



» IS ♦. 

OPERAND 
». RCPCH .♦ 



DIBRC X 
•SCANR3 



POINT TO 

PARAMETER 

-NNN- 



.♦ SCAN • 
ENDED BY 
BLANK OR 

. COMMA 



.* IS *. 

.• PARAM AT • 
.LEAST 3 CHAR 
•.IN LENGTH.* 



CONVERT RC 
PARAMETER 
TO BINARY 



DID 
BLANK END 
. SCAN 



NO ."CHARACTERS 
...*. IN 

*. LENGTH . 



*H3 
PICK UP SYSTEM 
TIMER HEX LOC 
50-53. SHIFT OUT 
LOW ORDER BYTE, 
SUBTRACT SYSTEM 
TIME OF DAY HEX 
LOC 54-57, AND 
ADD NEW SET 
CLOCK TIME. 



• 


STORE 


• 




RESIDUAL 




• 


COUNT 


« 




X 

H4* '*. 
.* IS * 






* RC GT 


*. YES 




65,535 




















X 




♦NO 


«BM * 
* C2* 




X 












*GG * 


NVSERR 




* Bl» 





*K3 
PICK UP SYSTEM 
TIMER, DIVIDE BY 
256, AND ADD NEW 
SET CLOCK TIME. 
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Chart GJ. $JOBCTLJ - SET Statement Processor (Part 3 of 3) 
Refer to Chart 12. 



♦ *. 


.♦ COM ♦ . 


.♦ • 






♦ 


SCANR3 BF* 


FIELD ♦ . YES 


.» REGION ». YES 


.♦ SDR 




YES 






LENGTH = ....... 


..X*. EXTENSION 


..X^. COM REG 






..X^ 


POINT TO ♦ 


2 .* 


♦ . AVAIL .* 


♦. AVAIL 








PARAMETER * 














~RF STATUS- ♦ 
















♦ NO 


♦ NO 


»N0 










X 








♦ BM » 












X 


• C2* 


























C4 ♦. 














.♦ SCAN ». 


NVSERR 










• 


♦ ENDED BY ♦. 

BLANK OR .• 
♦. COMMA .♦ 



CLEAR 

OPTION 

BITS 



•GG ♦ 
* Bl» 

SETEXT 



FIELD 

LENGTH = 

2 



• RMS 

IN 
». SYSTEM 



»G3*»*»*» 

SET UP 

DEFAULT 

MESSAGE 

1I88I 



MSGOUT BE 
PRINT MESSAGE*** 



CREATE 
''♦YES 



♦ ♦^♦♦♦♦♦*« 

♦ MODIFY » 
♦OPTION SWITCH* 

INSTR -RFSET- 
♦ FOR PROPER * 

* SETTING * 



♦ MODIFY ♦ 
♦OPTION SWITCH^ 

INSTR -RFSET- 
♦ FOR PROPER ♦ 

♦ SETTING ♦ 



CLEAR 

OPTION BITS 

IN SDR 

COM REG 



♦ ♦^♦♦♦♦♦♦^ 

RELOAD 

EXT. ADDR 

SDR TABLE 

ADDRESS 



SDR STATUS FLAG BYTE, 
X«08' - CREATE 
X»04« - YES 
X«10« - NO 



SET OPTION 

BITS 

♦ J4 
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Chart GK. $JOBCTLJ - UPSI Statement Processor 
Refer to Chart 12. 



POINT TO 

OPERAND 

-NNNNNNNN- 



Cl ». 
.* DID * 

A BLANK 
STOP THE 
. SCAN 



.* VALID *. 

.» LENGTH ». 

•1-8 CHARACTERS. 



*.**»C3» 

* INITIAL 

* REGISTER 
•SETTING B 

* AND OFF 

* *E1 



IZE 
S FOR 
ITS ON 



*E1 
POINT3 
WRKRG3 
WRKRG4 



* C2» 
NVSERR 



LOOP CONTROL 

BIT ON MASK, HEX 0080 

BIT OFF MASK, HEX FF7F 



D3 * 
.* IS 
THIS 
CHARACT 



OR BIT ON 

USING MASK 

IN WRKRG3 



NXTBIT 

•»»*»G3**»*»***»* 

* SHIFT WRKRG3 * 

* AND WRKRG4 • 

* RIGHT ONE BIT • 
♦TO CONTROL NEXT* 

* UPSI BIT » 



AND BIT OFF 

USING MASK 

IN WRKRG4 



* INCREMENT * 
♦P0INT1 TO POINT* 

* TO NEXT CHAR » 
« OF UPSI PARAM * 



LAST « 
UPSI CHAR 
. CHECKED .• 



Charts 149 



Chart GL. $JOBCTLJ - PAUSE, LOG, and NOLOG Statement Processors 
Refer to Chart 10. 



Bl • . 
.* WAS *. 

.• STATEMENT 
FROM 
•.OPERATOR . 
*. #F3 .* 

'•NO 



♦#cr*»»»*«* 

•SET SYSLOG 
» INPUT 
INDICATOR 



*»C2*»»«»»« 

SET 

JBCSWO 

TO LOG ON 

SYSLOG 



LOG .*. 

B3 ». 
.♦ WAS *. 
YES .• STMNT •. 
......FROM OPERATOR. 

♦. »F3 .• 



##C3»»»»««» 

SET 

JBCSW 3 

TO LOG ON 

SYSLST 



.» WAS *. 

.» STMNT *. YES 
♦.FROM OPERATOR.*.... 
». »F3 .* 



«#C4««*»»»* 

* TURN OFF * 
LOG SWITCH 
IN JOB CTRL 

SWITCH 3 

* JBCSW3 • 



•«C5««*«»*» 

• TURN OFF • 
LOG SWITCH 
IN JOB CTRL 

SWITCH 

• JBCSWO • 



SET PAUSE 

FOR NEXT 

ENTRY 

SWITCH 

ON 



• B4» 
* * 

CONTROL 



• B4« 

• • 

CONTROL 



» B4« 
CONTROL 



JOB CONTROL SWITCH 
NO. 4 IS CHECKED 
FOR OPERATOR 
COMMUNICATIONS. 
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Chart GM. $JOBCTLJ - STOP Statement Processor 
Refer to Chart 10. 



***** 

*BC * 
* F** 



STOP 


.*. 

Bl *. 

.* IS *. 




NO 


* MULTI- 


*. 


...* 


PROGRAMMING .* 




*. SUPPORTED. 


* 




*. .* 




X 


*. .* 




***** 


*YES 




*BM * 






* C2* 






* * 






* 






NVSERR 


X 




*****£!********** 


*MTNCNT 


HK* 


*- 


.*_*_*_*-*_*. 


-*-* 


* 


RELEASE 


* 


* 


CONTROL 


* 



***************** 



I/O 
ON SYSLOG 
.COMPLETE . 



**Ei******* 

* TURN ON * 
INPUT FROM 
SYSLOG SW. 

-JBCSWO 

* BIT 2 = * 
*********** 



****02********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



* LOAD ADDRESS * 

* OF NON- * 

* EXISTENT CCB * 

* IN Rl * 
***************** 



****C 3** ******* 

* SVC 7 * 

* WAIT * 

* *B4 * 
*************** 



*****Q3********** 

♦MTNCNT BK* 
*_*_*_*_*_*_*_*_* 

* MAINTAIN * 

* CONTROL * 

* * 
***************** 



CCTBR 
AITR 



.* JOB *. 
NO .*ACCOUNTING * 
,..*. INTERFACE 

*. SUPPORT .* 



**G1******* 

* SET BR * 

*AT ACCTIGNT6 * 

* TO 

* PROGRESS * 

♦ACCOUNTING * 

*********** 



.* JOB *. 
NO .*ACCOUNTING *. 
...*. INTERFACE . 
*. SUPPORT .* 



ACCTGO .*. 

F3 *. 
.* IS *. 
.* THIS THE *. YES 
*. ONLY ACTIVE .*.... 
*. PART .* 



ACCTLV1B 

**F4******* 

* SET NO * 

* ACTIVE 
...X* PARTITION 

* SWITCH 

* OFF * 
*********** 



*****G3** ******** 

* * 

* INCREMENT * 

* BATCH * 

* PARTITION * 

* COUNTER * 
***************** 



**H2******* 

* * 
SET NO 
ACTIVE 

PARTITION 

* SW ON * 
*********** 



ACCTCL X 

*****H3** ******* 

* CLEAR 

* TIME 

* COUNTERS IN 

* PARTITION 

* TABLE 
**************** 



ACCTUPDT 

*****jl********** 

* DECREMENT * 

* PARTITION * 

* COUNTER * 

* AND * 

* STORE * 
***************** 



..x.x... 

x 

**** 

* * 

* B3 * 

* * 
**** 
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Chart GN. $JOBCTLJ - CATALR Card Processor 
Refer to Chart 12. 





Al 


*. 






.• IS • . 




* 


DPTION LINK*. 


YES 




CARO 






. PRESENT .• 














X 




• NO 


*GU • 








• F3* 
























OTSERRL 




X 






►*B1»»»»»»« 






SET • 
CATALR • 




OPTION SWITCH 






JBCSW5, » 






BIT ( 


) ON » 












CI • • 






.• FIRST • . 




* 


CARD • * 


NO 




COLUMN 




* 


► BL/ 


INK .* 





VMRTN X 
»»»»»B3«« 
•VMBUCK 



NXTOPRD 
•SCAN2 



POINT TO 
CURRENT 
OPERAND 



» OPERAND 
DELIMITER 
•. BLANK 



PICK UP VERS 

NO. AND 

NEXT CHAR 



IS NEXT 
CHAR A 
PERIOD 



»«»»»D3»»»»»»*»« 

• STORE VERSION 
•NO. IN CONVERT 

• BUCKET AND 

• POINT TO NEXT 

• CHARACTER 



IS 

MOD LEVEL 
. PRESENT . 



PICKUP MOD 
LEVEL AND 
NEXT CHAR 



•••*B4«*»*»«««* 

CONVERT VERS 

NO. TO BINARY 

AND STORE IN 

ENTRY AREA 

FOR V.M 



IS 
VERS NO. 
. GT 127 



CONVERT MOD 
LEVEL TO 

BINARY AND 

STORE IN 

AREA FOR V.M 



IS 
MOD LEVEL 
. GT 255 . 



VMBUCK X 

* CLEAR WK REG2 

* AND SET 

* INDEX REG FOR 

* A 3-CHAR 

* SCAN 



.» IS 

YES .» CHAR 
.•.VALUE LT 
•• GT 9 



•*»«05 *••*•*•• 

PUT THE CHAR 

IN WKREG4 

AND SET PTR 

TO NEXT 

CHAR 



.» HAVE • 
•. DIGITS BEEN 
•. TESTED .» 



»F5*»»*« 
RETURN 



MODIFY 
FOR PUNCH 
STACKER2 



* BLANK • 

FOLLOWS MOD 
*. LEVEL .• 



.* V.M ». 

• OPERAND • 

COMBINATION 
•.TOO LONG .» 



IS 

DEVICE 
TAPE 



MODIFY 

CCW FOR 

TAPE 



STORE MOD 

LEVEL IN 

CONVERT 

BUCKET 
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Chart GP. $JOBCTLJ - ALLOC Statement Processor (Part 1 of 3) 
Refer to Chart 10. 



CALC NUMBER 

OF 2K BLOCKS 

AND STORE IN 

TABLE 

• Kl 



GTNXOP 

••♦••A4* 
•SCAN2 



.» IS *. 

MULTI- 
PROGRAM 
.SUPPORTED. 



•RESET DUPLICATE* 

* OPERAND AND * 
•SECOND OPERAND • 

• SWITCHES • 



INITIALIZE 

REGISTERS 

• B3 



»»»**B2« 

• ADD NUMBER OF 

• 2K BLOCKS TO 
•THE BYTE COUNT 
» REG 

• WRKRG2 







< 








»«««C2» »•• 






10VE THE UPPER 






LIMIT FOR 


THh 






MEXT AREA 


,NIII 






WRKRG1 






* 


*J2 




* 



WRKRG1 EQ END 
STORAGE ADDRESS 
POINT1 EQ FORE- 
GROUND! TABLE 
ADDRESS. 

POINT2, POINT3 EQ 
PIB ADDR. 
P0INT4 EQ ADDR. 
OF LOGICAL TRANSIENT 
AREA. 

WRKRG2 EQ 
BYTE COUNT 



•LOAD ADDRESS OF* 

♦ THE Fl TABLE • 

• INTO P0INT4 • 



.• PIB ». 

.* INDICATES *. 
.TASK DETACHED. 



♦••••E2*»******* 

• USE ADDRESS 

♦ OF SAVE AREA 
•AS LOWER LIMIT 

• AND PUT INTO 

♦ TABLE 



INNXEN 

•**»«F1********* 

•STORE CONTENTS 

• OF WRKRG1 IN 
•TABLE AS UPPER 

• LIMIT VALUE 

• »J1 



••**»G1****«»**«« 

•GET ORIGIN FROM* 

• CURRENT PIB * 
•AND MOVE IT TO * 

• THE TABLE AS • 

• LOWER LIMIT • 



#»»*«H1*««»»»»»« 

• CALC UPPER 
•LIMIT FOR NEXT 

• TABLE ENTRY 
•-CURRENT LOWER 
•LIMIT MINUS 1^ 



.* IS •. 

.• TRANSIENT • 
.REGION BEING 
«. USED .» 



»*»»»G2*«**»*»»* 

* SUB 16 FROM 
•P0INT1, P0INT2. 

• POINT TO NEXT 

• TABLE AND PIB 

* RESPECTIVELY 



ALLOCATION 

». TABLE . 

•. »K2 .* 



SET 

CORRECT 

LOWER 

LIMIT 



• LOAD THE 
•ADDRESS OF THE 

• F2 TABLE 

• INTO P0INT4 



.• FIRST *. 
•OPERAND EQUALS." 
F2 •• 



.• DUPLICATE *. YES 
•FIRST OPERANDS. «..X 
*. *J3 .» 



*#»»»G4*»»****»*» 

* MOVE OPERAND • 
•FOUND BY SCANR2« 

• INTO THE • 
•PRECEDING TEST • 



GET NUMERIC 

ALLOCATION 

VALUE 



.» DELIMITER • 
•. IS AN EQUAL 
•. SIGN .* 



• »D5» 
•MODIFY TEST* 
•AFTER RETURN 
FROM SCANR3 
• ROUTINE 
• »K4 • 



OPERAND 

1-5 CHAR 

.IN LENGTH. 



LOAD OPERAND 

ADDRESS IN 

WRKRG3 






• Jl 



*J2 



THIS VALUE IS ALSO STORED WRGRG1 CONTAINS 
IN THE ACTIVE LOWER LIMIT CHANGING (DYNAMIC) 
FIELD INDICATING THIS UPPER LIMIT 
FIELD IS INACTIVE. IT INFORMATION. 
CONTAINS A HEX FF IN THE 
LAST BYTE 



EXIT ON THE NO LEG 
FIRST TIME THROUGH 
THIS ROUTINE. 



CURRENT UPPER LIMIT 
MINUS NEXT UPPER 
LIMIT DIVIDED BY 2048. 



• K2 
THIS LOOP IS EXECUTED 
UNTIL 3 TABLES, ONE 
FOR EACH TYPE OF PROBLEM 
PROGRAM, ARE BUILT. THE 
TABLES ARE BUILT IN THE 
SEQUENCE Fit F2, AND BG. 
THE SEQUENCE IS A REVERSAL 
OF THE PHYSICAL ORDER. 
SEE LABEL LIST FOR A TABLE, 
F2TBEN AND F1TBEN 
EXPANSIONS. 



*J4 
THE ALLOC STATEMENT 
FORMAT - ALLOC F1=2K, 
F2=2K. Fl= OR F2= IS 
CONSIDERED THE FIRST 
OPERAND. IF BOTH Fl 
AND F2 ARE SPECIFIED 
SCANR2 IS USED TWICE. 

«K4 

THE INSTRUCTION AT LOCATION CKSCST IS 
MODIFIED TO BRANCH TO THE ERROR HANDLING 
ROUTINE IF THE SECOND OPERAND IS 
DELIMITED BY AN EQUAL SIGN OR A COMMA. 
THE COMMA IS ALLOWED TO DELIMIT THE 
FIRST OPERAND. 
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Chart GQ. $JOBCTLJ - ALLOC Statement Processor (Part 2 of 3) 
Refer to Chart 10. 



♦CONVERT NUMERIC* 

* VALUE TO * 

* PACKED BINARY * 

* AND DIVIDE * 

* BY 2 * 
***************** 



♦ A3 
THE LOWER LIMIT IS CALCULATED 
BY GETTING THE NUMBER OF 2K 
BLOCKS FROM THE CORRECT TABLE 
ENTRY. CONVERTING THE VALUE 
TO THE NUMBER OF BYTES (2K 
BLOCKS TIMES 2048), SUBTRACTING 
THE BYTE COUNT FROM THE UPPER 
LIMIT AND ADDING ONE. 



Dl *. 

.♦OPERAND*. 

CHARACTER 

LESS THAN 





.♦OPERAND*. 
.* CHARACTER * 
.GREATER THAN 



***** PI ********** 
*TEST CHARACTER * 

* TO DETERMINE * 

* IF IT IS AN * 

* ODD NUMBER * 

* *E3 * 
***************** 



*****Gl ********** 

* POINT WRKRG3 * 

* TO THE NEXT * 

* CHARACTER OF * 

* THE OPERAND * 



***** 



<** 



.* END *. 
NO .*0F NUMERIC *. 
...*. CHAR IN .* 
*. OPERAND .* 



NUMBER 


*. YES 


ODD 


.*..X 


*E3 


.* 



.* LAST *. 
.* CHARACTER : 
*. OF OPERAND 



**** 

* * 

* A2 * 





*B3 




LBLPTR=LARGEST 


X 


JOBCTRL PHASE+ 


.*. 




B2 *. 




♦NUMBER *. 




OF 2K *. 




BLOCKS GT .* 




255 .* 





*B4 
NEW UPPER LIMIT EQUALS 
UPPER LIMIT OF LAST AREA 
PLUS NUMBER OF BYTES IN 
LAST AREA. 



STLLMT X 

*****A5****^***** 

* STORE NEW ♦ 

* LIMITS IN * 

* THE CORRECT * 

* TABLE ENTRY * 

* * 
***************** 



*****B5********** 

♦ CALC NEW ♦ 

♦ UPPER LIMIT ♦ 

♦ FOR THE NEXT ♦ 

♦ TABLE ENTRY ♦ 



*B4 

*********#*: 



***** 



*****C2********** 

♦ SAVE THE ♦ 

♦ NUMBER OF 2K ♦ 

♦ BLOCKS IN THE * 

♦ CORRECT ♦ 

♦ TABLE ENTRY * 
***************** 



.* SCAN *. 
♦ STOPPED 
ON A BLANK 



*****E 2 ********** 
♦PUT END OF MAIN* 

♦ STORAGE ADDR * 

♦ INTO WRKRG4 * 

♦ FOR INITIAL ♦ 
*UPPER LIMIT CHK* 
***************** 



*C3 
BY USING A FORWARD SCAN OF THE 
ALLOCATION TABLE, CONTINUITY 
IS ENSURED. INITIALLY 
P0INT1 EQ TABLE - 16 
P0INT2 EO PIB TABLE ADDRESS 
WRKRG2 EQ STORAGE KEY 
WRKRG1 EQ BG LOWER LIMIT 



♦ D3 
A BLANK DELIMITER INDICATES NO MORE OPERANDS 
FOLLOW. HOWEVER, AN ALLOC STATEMENT CAN 
CONTAIN TWO OPERAND FIELDS, (Fl AND F2) 
SEPARATED BY A COMMA. A COMMA DELIMITER 
REQUIRES ANOTHER ITERATION OF THIS ROUTINE 
TO COMPLETE OPERAND PROCESSING. 



♦ E3 
EACH CHARACTER IS 
TESTED TO DETERMINE 
IF IT IS ODD. THE 
TEST TO DETERMINE 
IF THE ALLOCATION 
IS IN MULTIPLE OF 
2K IS MADE ON THE 
LAST NUMERIC 
CHARACTER ONLY. 



*****£ 5********** 

* SET REGISTER ♦ 

* POINTER, ♦ 

* P0INT1 TO ♦ 

* NEXT TABLE ♦ 

* ENTRY ♦ 
***************** 



**** 

* * 

* G2 * 



*****P2********** 




♦ PUT Fl TABLE ♦ 




* ADDRESS INTO ♦ 




♦ P0INT1 AND ♦ 




♦ENSURE BG AREA ♦ 




* INACTIVE ♦ 


**** 


***************** 


* * 




* G3 ♦ 


**** ' 


* * 


* * 


**** 


* G2 ♦... 




* * 




**** 


X 


CMNWLM X 


.♦. 


*****G2^^**^++**^ 


G3 ♦. 


♦ SAVE TOTAL ♦ 


.♦ TABLE *. 


* NUMBER OF 2K * 


NO ,*ENTRY INDI-^. 


* BLOCKS IN LOC * 


...♦. CATE ACTIVE . 


* BGNO 2K * 


*. AREA .* 


* * 


♦. *J4 .* 



***************** 



*****H2****^*^**^ 
♦CALC TOTAL BLKS^ 
♦MINUS ALLOCATED^ 

* BLKS WITH ♦ 

* RESULT IN * 

* WRKRG3 * 
***************** 



RESULT 
LESS THAN 
. ZERO 



E5 *. 

.♦ BG *. 

AREA 

LESS THAN 

10K 
♦ . .♦ 



*****P5********* 

♦ GET ADDR. OF 
♦LARGEST JOBCTL 

* PHASE+100 IN 

* WRKRG4 

♦ *B3 
**************** 



.♦ IS ♦ 
YES .* IT MORE 
X...^. THAN NEW 
♦. LIMITS 



***** 
*GU ♦ 
♦ F5^ 



.* NEW *. 
YES .♦UPPER LIMITS. 
...♦. LESS THAN .* 
♦ .OLD LIMITS 



.♦ NEW *. 
.♦LOWER LIMIT*. NO 
♦.GREATER THAN .*... 
*.OLD LIMIT.* 



NECESSARY TO ISSUE 
PRIVILEGED INSTRUC- 
TION SSK IN SUBSE- 
QUENT PROCESSING 



♦ J4 
A HEX FF IS FOUND IN 
THE LAST BYTE OF THE 
POINTER SAVE AREA 
FIELD OF AN INACTIVE 
ENTRY. THIS IS THE 
LAST BYTE OF AN 
UPPER LIMIT ADDRESS 
(ALWAYS FF). 



***** 

♦ BM * 

♦ C2^ NVSERR 



*****«2*** 

♦ * 

♦ CALCULATE ♦ 

♦ LOWER * 

♦ LIMIT * 

♦ *A3 ♦ 
***************** 



***** 
*GU ♦ 
♦ F5 + 



*****H5********** 
♦CHGSTT GT* 
*_*_*_*_*_*_*_*_* 

* ENTER ♦ 

* SUPERVISOR * 

* STATE *H4 ♦ 
***************** 



***** j 5** ******** 

* INITIALIZE * 

* FOR LOW TO * 

* HIGH SCAN OF * 

* ALLOCATION ♦ 

* TABLE ^C3 ♦ 
***************** 



***** 

♦ GR ♦ 

♦ Bl* 



**** 

* * 

* G3 * 

* * 
**** 
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Chart GR. $JOBCTLJ - ALLOC Statement Processor (Part 3 of 3) 
Refer to Chart 10. 



*GQ * 

• J5* 

X* 

NXPBNT X 

#»»#*B1*»»»*»»»»« 

• ADD 16 TO THE » 

• TABLE POINTER * 

• SO THAT IT ♦ 

• POINTS TO THE • 

• NEXT ENTRY • 


RSPPEA .* 
C2 

.•'batch 

...X*.J0BS IN 

*. F2 




X 

CI* *•. 

.♦**END OF *♦. YES 
». ALLOCATION ...... 

*. TABLE .* 


». 

NG '* 

Fl OR 



#»#»»D1»»»»***»»* 
» POINT TO NEXT * 
«PIB WITH POINT2* 
» AND ADD 16 TO » 

* STORAGE KEY » 

• IN WRKRG4 • 



*»»#»E1**»*»***«« 

* SET PIB VALUE « 
♦FOR LOWER LIMIT* 
♦AND BLOCK COUNT* 
♦FROM ALLOCATION* 

♦ TABLE * 



*D3 
• YES 



•••D2****^»^ 

INITIALIZE 

WRKRG4 TO 

START LOOP 

WITH Fl 

*E3 




CKNDAR 
YES .♦" 



••Gl««^»^«* 
♦SET STORAGE^ 
PROTECTION ♦ 
KEY IN THIS 
2K BLOCK * 



• ♦•^•••♦•••» 

ADD 2048 TO 

WRKRG1. 

INITIALLY 

LOWER LIMIT 



RSPPAE1 

»»#»#E2****»***« 

• GET ADDRESS 

• OF COMREG FOR 
•THIS PARTITION 
« FROM 2ND 

• PART OF PIB 



**#»*F2********** 

♦ PUT UPPER ♦ 
♦ADDRESS OF THIS^ 
♦PARTITION INTO ♦ 

♦ HEX BYTE 20 ♦ 

♦ OF COMREG ♦ 



#»#»G2********* 

DECREMENT 

WRKRG4 TO 

POINT TO NEXT 

PARTITION 



*D3 
CHECK SYSTEM 
CONFIG BYTE IN 
COMREG BIT 5. 
IF ON, THERE ARE 
THREE COMREGS 
SEE FIGURE 10. 



♦ E3 
WRKRG4 IS 
INITIALIZED TO 
X«20' FOR Fl. 
IF NO BATCH IN 
FOREGROUND 
WRKRG4 IS SET 
TO FOR BG 
ONLY. 



DETERMINED BY REPETITIVE 
ADDITIONS OF 2048 TO THE 
LOWER LIMIT, UNTIL IT 
EQUALS THE UPPER LIMIT. 



STORE BG 

START ADDR 

IN PIB 



RETURN TO 

PROBLEM 

PROGRAM 

STATE 

*K2 



• K2 
LPSW CONTAINING 
ADDRESS OF 
CONTROL. 



Charts 155 



Chart GS. $JOBCTLJ - Miscellaneous Subroutines (Part 1 of 2) 
Refer to Charts 11 and 12. 



•♦Al*««»* 
TXCUU 



*A2*««»» 
HEXCON 



*A4*»«** 
CNUNCO 



.♦CHARACTERS *. NO 
IN .»... 
*. LENGTH .* 



TXCUU1 

♦ SEARCH PUB 
« TABLE FOR 
•DESIRED DEVICE. 

* SEARCH FOR 

• CUU 



.» DEVICE ♦ 
.FOUND IN PUB 
*. TABLE .* 



• SAVE DEVICE 

• TYPE AND PUB 

• ADDRESS. COM- 
» PUTE THE PUB 
•POINTER. »Hi 



»*G1«»«»»«* 

RETURN TO 

CALLING 

SEQ 



♦ HI 

1. THE DEVICE TYPE IS 
SAVED IN DVCTYP 
FROM THE PUB. 

2. THE PUB ADDRESS IS 
SAVED IN REGISTER 
P0INT4. 

3. THE PUB POINTER IS 
COMPUTED IN WRKRG3. 



VALID 

FORMAT 

• F3 



♦•••C2*****»*»* 

CONVERT 

EBCDIC TO HEX 

AND SET UPPER 

CHECK LIMIT 

TO FF 



♦ CHECK 

• CHARACTER 
•RANGE • 



E2 ♦. 

.» CHECK ♦ 
♦ FOR CHAR 

RANGE 
•.FO TO FF 



PACK HEX 
TO BINARY 
IN IORGSA 



•♦G2«^»**^* 

RETURN TO 

CALLING 

SEQ 



SET POINTER 

POINT2 FOR 

SYSIPT TABLE 

ENTRY 



• SYSIN, 

SYSXXX, 
*.OR OTHER 



.* IS ♦. 

• THIS A 

PROGRAMMER 
•. UNIT 



• INIT REGISTER 
•FOR PROGRAMMER 

• UNIT 



ADDRESS 
NEXT 
ENTRY 



FIRST TWO CHARACTERS 
MUST BE X' 
LAST CHARACTER 
MUST BE • . 
(AS IN X'CUU') 



THE SYSTEM CLASS, NICL AND FICL 
POINTER, IS SET TO A 1 IN 
UNCLOR BYTE 0. 



LOOK UP SYS 

UNIT IN 

SYSTEM UNIT 

TABLE SYSUTB 



E4 •. 

•UNIT 
FOUND 



•SET UNIT CLASS 

• AND SYSTEM 

• CLASS IN SAVE 

• AREA UNCLOR 



♦ ♦^♦♦•••♦•^ 

RETURN TO 

CALLING 

SEQ 



P0INT1 IS 

INCREMENTED BY 

3 TO POINT TO THE 

FIRST CHARACTER 

OF XXX. 

P0INT3 IS 

INITIALIZED TO 

A 2 AS A CHARACTER 

COUNT REGISTER. 




CNUNC01 

♦•♦•♦D5^ 
•NUMCON 



CHECK XXX 

AND CONVERT 

TO BINARY 



X 

♦•♦E5^»*«*»** 

SAVE 

PROGRAMMER 

UNIT NUMBER 

IN UNCLOR 







< 












F5 •. 






.* IS *. 




NO 


• UNIT • 






.NUMBER IN LUB 

*. TABLE .• 

•. »J2 .♦ 


* 


X 








♦YES 




• GU • 






• C2» 
























NLUERR 










X 




♦ .♦♦♦G5^«^»«^*»^» 




SET PROGRAMMER 


• 




CLASS IN 






BYTE OF 






UNCLOR 




* 


♦ G2 


* 



RETURN TO 

CALLING 

SEQ 



UNCLOR, BYTE 1, THE UNIT CLASS, 

LUB POINTER, IS THE FUNCTION OF THE 

SYS ARGUMENT IN THE TABLE SYSUTB, 

UNCLOR, BYTE 0, THE SYSTEM CLASS, 
NICL AND FICL POINTER, IS SET TO ZERO 

BECAUSE THE ROUTINE IS WORKING WITH 
A SYSTEM UNIT. 



♦ J4 
THE CODING FOR THIS ROUTINE ACTUALLY 
APPEARS IN THE SJOBCTLJ PHASE. THE 
CHART REFERENCED IN A DIFFERENT 
PHASE REPRESENTS LOGIC IDENTICAL 
TO THAT FOUND IN THE SJOBCTLJ PHASE. 
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Chart GT. $JOBCTLJ - Miscellaneous Subroutines 
Refer to Charts 11 and 12. 



(Part 2 of 2) 



**A1»*»»«*» 
UPDSAV 



»»»«A3***»* 
LNKOUT 



•♦•A4***** 
NUMCOM 



**#»A5*»«*« 
BINCON 



INCREMENT 

BLOCK COUNT 

»B2 



•COMPUTE ADDRESS* 
« OF NEXT * 
•AVAILABLE AREA • 
•IN LINK OUTPUT • 
•BUFFER »C2* 



•C2 
1. 

2. 



THE OLD BLOCK COUNT, 
BLKCNT IS SAVED IN 
REGISTER WRKRG1. 
NEW BLKCNT EQUALS 
OLD BLKCNT PLUS 1. 



THE INITIAL VALUE 
OF BLKCNT IS 0. 
OLD BLKCNT, WRKRG1, 
TIMES 80 EQUALS 
DISPLACEMENT IN 
OUTPUT AREA. 
DISPLACEMENT PLUS 
OUTPUT AREA STARTING 
ADDRESS, LNKBF1, 
EQUALS ADDRESS OF 
NEXT AVAILABLE AREA. 



SET RANGE 

LIMIT IN 

CHKRNG 



•»«C3»***«*»* 
SET OUTPUT 
BLOCK COUNT 

IN CNTFLD 
FROM BLKCNT 



PREVIOUS 
I/O 
.COMPLETE 



• SVC 7 WAIT 
.X» FOR PREVIOUS 

• I/O ON SYSLNK 



OUTPUT 

STATEMENT ON 

SYSLNK *E2 



CHARACTER 
RANGE FO 
. TO F9 . 



POINT TO 

PARAMETER 

•H5 



.♦ DID *. 

.« AN EQUAL • 
.SIGN END THE 
». SCAN .• 



•MOVE STATEMENT • 

• FROM INPUT • 

• BUFFER TO » 

• SYSLNK OUTPUT * 

• AREA • 


• E2 
SYSLNK OUTPUT AREA IS 
322 BYTES STARTING 
AT CNTFLD. 


••••»E3****«****« 

• ZERO BLOCK • 

• COUNT, BLKCNT • 

xlx 


; 


PACK INTO 
IORGSA AND 
CONVERT TO 

BINARY IN 
WRKRG1 


* 


E5 •• 

'. NO .** VALID ** 
X...*. FORMAT 

X *♦. .** 
•»••* #YES 

*BM • 

• C2*NVSERR . 


" : 






*. 






X 
»*.»F3*»*»*»«»« 

♦ RETURN TO • 

• CALLING • 

* SEQUENCE • 


/ 


CHGSTT 
*J1 


X 

»#»«»F5» •♦ 

•CONV PARAMETER 

• TO BINARY IN 

• REGS P0INT1, 

• P0INT2, AND 

• P0INT3 *J5 



* 


SAVE THE ADDR • 


••••G5***»****» 




OF THE PROG • 


* RETURN TO 




CHECK ROUTINE • 


• CALLING 


* 


FOUND IN THE • 
NEW PC PSW • 


• SEQUENCE 







♦ HI 
THE CODING FOR THIS ROUTINE ACTUALLY 
APPEARS IN THE SJOBCTLJ PHASE. THE 
CHART REFERENCED IN A DIFFERENT 
PHASE REPRESENTS LOGIC IDENTICAL 
TO THAT FOUND IN THE $JOBCTLJ PHASE. 



•*tt»»H4**»**»*** 

• PUT INST ADDR 
•OF INST FOLLOW- 
ING BAL IN THE 

• ADDRESS FLD 

• OF NEW PC PSW 



1. MM/DD/YY 

2. DD/MM/YY 

3. HH/MM/SS 



»»J4«***»»« 
•FORCE PROG • 

* CHECK TO • 
•RETURN IN LINE 

* TO CALLING • 
* SEQ. • 



• •»K4»««*««» 
NSI FOLLOWS 

BAL» 
INSTRUCTION 



IF PROCESSING THE 
DATE OPERAND — 
P0INT1 CONTAINS 
MM OR DD 
P0INT2 CONTAINS 
DD OR MM 

P0INT3 CONTAINS YY 
IF PROCESSING THE 
CLOCK OPERAND- 
POINT! CONTAINS HH 
P0INT2 CONTAINS MM 
P0INT3 CONTAINS SS 
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Chart GU. $JOBCTLJ - Error Subroutines 
Refer to charts 11 and 12. 



•GB-B3 
GE-K2 
GE-G4 
GE-H4 



•GS-E3,E4,F5 



TURN AUTO 

CANCEL 

SW- 

ON 



ERR X 


NLUERR X 


**«»#C1 **»»»»*•** 


»»**#C2»»**»***»* 


* POINT TO * 


• POINT TO * 


* DESIRED * 


• DESIRED * 


• MESSAGE * 


* MESSAGE * 


* 1A20D * 


• 1A40D * 


• *H1 * 


• »H1 * 



POINT TO 

DESIRED 

MESSAGE 

1C30A 



*##»#C 4* *•»*»*»*• 


**«*«C5**»*****»* 


* POINT TO » 


* POINT TO • 


* DESIRED * 


• MESSAGE « 


* MESSAGE • 


* 1S03I • 


* IC30A *H1 « 


• *H1 • 


* » 


•»»»•»»*««**•**** 



•*F1»»»»«* 

POINT TO 

DESIRED 

MESSAGE 

1C10A 

• HI 



NOP 

ERROR 

EXIT 

EREXIT1 



• •G2» 

POINT TO 

DESIRED 

MESSAGE 

-1A70D 

•HI 



»»F3»»*»»»* 

TURN 

AUTO 

CANCEL SW 

ON 



»»»G3»*»*»* 

POINT TO 

DESIREO 

MESSAGE 

1S10D 

•HI 



»GQ-E5,G5,J3 



••F5» 

POINT TO 

DESIRED 

MESSAGE 

-1POOD- 

•Hl 



• HI 

ImessageI 



DESCRIPTION 



.1A20D 
IlAAOD* 



. 1A50D 
IiA70D* 



.1C10A 

licioA* 



. 1POOD 

Iiso3i* 
lisioo* 



INVALID DEVICE TYPE 
" INVALI D* LOGICAL* UNI f" SPECIFIC ATI ON* 



device not-defined 
'invalid 'device 'status* 



PLEASE ASSIGN-SYSRDR,SYSIPT,SYSLNK- 
" PROGRAM * NOT * FOUND 



INVALID ALLOCATION 

'INVALID" STATEMENT 

'STATEMENT* OUT* OF* SEQUENCE* 
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Chart HA. $JOBCTLK - LBLTYP, VOL, £ TPLAB Statement Processors 
Refer to Chart 13. 



LBLTYP X 
•SCANR2 



«**«B3**»»»*«« 
INITIALIZE 

LINKR4 

WITH ADDR. 

OF ERROR RTN 



•MOVE CHARACTER 
» STRING TO 

* LABEL OUTPUT 

* AREA MTFID 



CI *. 

.* DID • 

BLANK 
END SCAN 



SET LENGTH 
OF PARTITION 
LABEL AREA TO 
80 IN WRKRG3 
-ASSUME TAPE- 



CHECK NN 

AND CONVERT 

TO BINARY 



#»«*«D2*««*»»»** 
•COMPUTE LENGTH 

• OF PARTITION 

• LABEL AREA IN 

• WRKRG3 

• *J2 



.CONTINUATION*. 

CARD 

• . SPECIFIED. • 



LBTOUT 

••••»E2 

* COMPUTE ADDR 

* OF THIS 
•PARTITION LABEL* 

• SAVE AREA 

• FROM PIK 



•BUILD COMPLETE 
• CARD IMAGE IN 
•BUFFRlf BUFFR2 



E3 *. 
.• HAS ». 

NO .• VOL STMNT ♦. 
...•BEEN PROCESSED.* 



GET 
SYSXXX 
OPERAND 



DID 
COMMA 
.END SCAN 



•♦•Fl* 

SET EXTENT 

AREA BYTE 

COUNT TO 20 

IN WRKRG3 

-ASSUME NSD- 



IS 

OPERAND 
NSD 



*»»#»H1*»»»*«««« 

* ADJ REG. 

* P0INT1 AND 

• P0INT2 FOR 
•CONVERSION RTN, 

• «H2 



»**#»F2«»* »••»*•♦ 
•STORE LENGTH OF* 

• PROG LABEL * 
•AREA FOR LIOCS * 
•AND THE LINKAGE* 

* EDITOR *K2 * 



* B4* 

* • 

CONTROL 



*H2 
P0INT1 IS POINTER TO 
THE FIRST N OF NN. 
P0INT3 IS SET TO 1 
LESS THAN THE NUMBER 
OF CHARACTERS IN NN. 



20 X NN+84 



#««»*F3«**»»*»»»» 




•SCANR2 BF» 








• POINT TO • 




• OPERAND • 




• -FILE ID- * 




X 








G3 •. 




.» IS •. 




.♦ 1ST CHAR. •. NO 


*.AN APOSTROPHE.* 














X 


• YES 






• BM • 




• C2» 




• » 








NVSERR 


X 




»*#**H3*»«»»»»*»» 




•INITIALIZE REG • 




• P0INT4 AS • 




• POINTER TO » 




• LABEL STORAGE • 




» AREA • 





##»#E4**»**»»«« 

INSERT 

DEFAULT VALUE 

•0000000 DOS/ 

TOS/360* 



»»«F4***»*»»* 

SET JBCSW5 

TO INDICATE 

TPLAB STMNT 

PROCESSED 



*«*«G4****»»»« 

RESET DATA 

LENGTH TO 80 

CHARACTERS 

AND STORE IN 

DTALGT 



SET FILE TYPE 

FIELD TO «T« 

TO INDICATE 

TAPE 



♦CONVERT SYSXXX 

* TO SYMBOLIC 

• UNIT ADDR »J5 



PROCESS 

FILE NAME 

OPERAND 



•••G5«**«»**« 
SET BITS IN 

JBCSW5 TO 
ALLOW DLAB 

OR TPLAB 



Jl ♦. 












• IS *. 






•**« 


LAST CHAR 




YES 








OF OPND A 




*. . • « 


X» 


c? 


• 


PAREN . 


* 




• 




* 



#*J3#«««*«# 
SET FLAG 

BIT 
IN MTFLG2 
FOR TPLAB 



* B4* 
CONTROL 



*K4 
INCLUDES FILE 
SECURITY, BLOCK 
COUNT, AND SYSTEM 
CODE. 



*J5 

THE CODING FOR THIS ROUTINE 
ACTUALLY APPEARS IN THE 
SJOBCTLK PHASE. THE CHART 
REFERENCED IN A DIFFERENT 
PHASE REPRESENTS LOGIC 
IDENTICAL TO THAT FOUND 
IN THE SJOBCTLK PHASE. 



FOR LIOCS STORE 

IN PARTITION 

SAVE AREA+80 

BYTES. 

FOR LNKEDT STORE 

IN COMREG + 44. 
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Chart HB. $JOBCTLK - TLBL Statement Processor 
Refer to Chart 14. 



•••••Cl***»»*»*»« 

* CLEAR FIELDS * 
•FILE ID THROUGH* 
» EXPIR. DATE • 
» IN OUTPUT » 

* BLK. * 



SET UP FILE 

NAME AND 
KEY FIELDS 



LOAD MAX 

LENGTH MINUS 

1 OF FILE-ID 

INTO WRKRG1 



»G1* 



STORE 

RETENTION 

PERIOD 

IN BYTE 64+65 

OF OUTPUT BLK 



RETURN FROM 

FDKTID, LINK 

REG + 8 



♦FETINSR1 



PROCESS AND 
INSERT FILE 
SERIAL NO. 



»»*02*»*»*»»» 
INSERT THE 

YEAR 
INTO OUTPUT 

BLOCK 



FTEND1 

. »*#*#D3' 
♦FETINSRT 



♦ CHECK AND ♦ 
•INSERT DAY INTO* 

• OUTPUT BLK • 



PROCESS AND 

INSERT VOL 
SEQ NO. 



PROCESS AND 

INSERT FILE 

SEQ NO. 



«*»**F1«*«»«**««* 


#*«#»F2»«**«**»** 


*#*«*F3»*»»«*«»*» 


•FDKTID HD» 


* * 


•FETINSRT HC» 




« INSERT • 




• PROCESS FILE * 


• CREATION ♦ 


* PROCESS AND • 


» ID OPERAND • 


• DATE INTO * 


* INSERT SYSTEM • 


•CHECK DATE *K1 • 


• OUTPUT BLK • 


♦GENERATION NO. • 



*.»G2*»«*»»*» 

RETURN FROM 

FDKTD, LINK 

REG+4 



FTEND 

••«*«H1****** 
•FSCAN 

•"*~get~f7le* 

• SERIAL 

• OPERAND 



* 


»#*»G3********«* 


• 


FETINSRT HC^ 


# 


PROCESS AND ♦ 




INSERT THE ♦ 


• 


VERSION NO. ♦ 




X 








H3 ♦. 






YES 


.♦ BLANK *. 




. FOLLOW LAST .♦ 




♦. OPERAND .* 






X 






♦ NO 


♦HA * 




♦ E4» 


.X 



.* BLANK ♦. 

*. END LAST .• 

♦. SCAN .* 


YES 


* RETURN TO 
..X* LINK REG 


**NO 




FSCAN1 X 

•SCANR2 BF« 




•••»C5*****«*»» 



EQUAL 
SIGN END 
. SCAN 



.X. 



FEBINl .♦. 

E4 ♦. 
.♦EXTENT ♦. 
NO .♦ STMNT 
...♦. PROCESSING 
♦. VALID . 



♦ FIRST 

2 CHARS. 
♦.OF OPEND 



SET CONDITION 

CODE TO 

INDICATE 

OPERAND 

FOUND 



•***«G4****** 


»♦♦♦ 




♦SCANR3 


BF« 


♦♦♦♦G5 *♦♦♦♦♦♦♦♦ 
'....* FEBINl i 


♦ GET BIN 




« 


♦ NUMBERS 














*H5 
CHECKS FOR-- 


X 






1. BLANK DELIMITER 








2. BLANK OPERAND 


H4 ♦. 






3. OPERAND=2 CHAR 








IN LENGTH 


NO .* VALID 








..♦. OPERAND 








♦ . «H5 


.* 







RETURN FROM FDKTID IS TO 

1. B2 FOR ABSOLUTE DATE (LINK REG+8) 

2. G2 FOR OMITTED DATE (LINK REG+4) 

3. Gl FOR RETENTION (LINK REG) 



INSERT BIN 

NUMBER IN 

OUTPUT BLK. 
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Chart HC. $JOBCTLK - Label Processing Subroutines (Part 1 of 2) 
Refer to Charts 13 and 14. 



•Al*»*»* 
FDKTV 



»A3»*»«»»- 
FDKTVNM 



»*»»A4»«**»* 
FETINSRT 



SET 

LINKR4 

TO ADDRESS OF 

ERROR ROUTINE 

-NVSERR- 



STATEMENT •. YES 
OUT OF 

.SEQUENCE .• 



TURN OFF ALL 
FLAGS IN 

JBCSW5 EXCEPT 
BLOCK-NOT- 
PRESENT «F2 



• GET ADDR OF » 
•FILE DEFINITION* 

• STMNT STORAGE * 

• AREA. STORE » 

• IN LBLPTR * 



SEQ 
DISK 
TYPE 



»»«»*G1*«*«*«»»* 
•TURN ON BIT IN 

• MTAFLG AND 

• MTRSVD FOR 

» LAST SEQ OISK 

• EXTENT »G2 



RESET ALL 

SEQUENCE 

FLAGS IN 

JBCSW5 



• Cl» 
OTSERR 



BLOCK-NOT-PRESENT 
BIT MAY BE ON 
OR OFF. 



• G2 
BYTE 0+8 OF 
DATA FIELD 
OF LABEL 



••••♦Hl«**»»*«» 

• LBLOUT HI 

•-•—*—*—*—*—*—#■ 

• OUTPUT LABEL 

• TO VOL AREA 
« OF SYSRES 



»*ft«»Jl •***•«*• 

♦ TURN OFF 

• LOST EXTENT 
•BIT IN MTRSVD, 

* CLEAR M.T. 

* FLAG BYTE 



RETURN TO 
LINK REG 



FETINSRT 
•»»*«B4 
•FSCAN 



•*D5«*»»«* 
FETINSRO 



FETINSRO 

»»«*#E^»« 
•CHKRNG1 



*#*F3»*«*»»* 

CLEAR FILE 

NAME FIELD 

AND RESET 

AUX FLAG 

BYTE 



»»#*«G3»»«»»«««« 

• MOVE FILENAME 

• TO OUTPUT 

• AREA AND SET 

• UP KEY FIELD 



CLEAR LAST 

POSITION 

OF KEY 

FIELD 



##J3#*«»**» 
RETURN TO 
LINK REG 



«*E5****** 

FETINSR1 



GET ADDR. OF 

THIS FIELD IN 

OUTPUT BLK 

INTO WRKRG1 



INPUT 
LENGTH GT 

THAN 
•OUTPUT.* 



NVSERR 

FETINSR3 X 

*«»«*H4*****»» 

* INSERT 

* LEADING 

* ZEROS IN 

* THIS FIELD 



INSERT 

THIS FIELD 

INTO OUTPUT 

BLOCK 



»««K4»»**»**» 

RETURN TO 

LINK REG +2 
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Chart HD. $JOBCTLK - Label Processing Subroutines (Part 2 of 2) 
Refer to Charts 13 and 14. 



#A1***»* 
FDKTID 



•SCANR3 BF« 

# GET OPERAND » 

* START ADDRESS * 



IS 
OPERAND 
PRESENT 



LOAD SCAN 

LIMIT INTO 

P0INT2 



IS 

CHARACTER 
. A QUOTE . 



* SET SCAN 

* DELIMITER 

* TO INDICATE 
•END OF OPERAND 



»C5 
RETENTION PERIOD 
OR ABSOLUTE DATE. 
FORMAT OF ABSOLUTE 
DATE IS '/YYDDD'. 



##«G1»»»*«»»» 

START SCAN 

WITH FIRST 

CHARACTER 

AFTER QUOTE 



NVSERR 

FDKTID2 x 

•••»«G2********** 
• INSERT FILE • 
•IDENTIFICATION • 
•IN OUTPUT BLOCK* 
•LEFT JUSTIFIED • 



IS 

DELIMITER 

. A BLANK . 



IS 
COLUMN 72 
.NON-BLANK. 



IS 
DELIMITER 
. A COMMA . 



•COMPUTE POINTER* 

• FOR NEXT SCAN • 

• 2ND STORE • 

• SCAN LIMIT • 



G3 •. 
.• IS • 

THERE AN 
OPERAND 
. WITHIN 
•QUOTES.* 

"•NO 



GET LENGTH 

OF DAY 

FIELD 



.» IS •. 

.3RD CHARACTER. 
•. A SLASH .» 



LOAD 

CHARACTER 

ADDRESS 



FDKTDAT X 
•»###H3»»» 
•FSCAN 



IS • 
CHARACTER 
. A QUOTE .» 



IS 
QUOTE IN 
. COLUMN 



DATE 
OPERAND 
OMITTED 





• DAY •. YES YES .• DATE •. 




FIELD .» 


...X... 


.♦. OPERAND .• 




*. OMITTED .» 




*. GT 4 .» 




*• •• 










X 






• NO 


• BM*« 

• C2* 


• NO 
















.X 




. 


NVSERR 






X 


FDCTDATl X 




••«J4*«*»*«**»* 




##»»*J5#»##*»#»»« 


* 


* 




•NUMCON HR» 




POINT TO • 








START OF » 




• CONVERT • 




ABSOLUTE • 




• TO BINARY * 


* 


DATE FIELD • 




* » 



»#**K3»»»«*»* 
RETURN TO 
LINK REG + 4 



#»«»K4*»»»»»» 
RETURN TO 
LINK REG + 8 
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Chart HE. $JOBCTLK - DLBL Statement Processor 
Refer to Chart 14. 



Al ♦ . 

CONCAT 



-»—•-«* 



READ 
CONTINUATION » 
CARD 



INCREMENT 

BY 6 TO POINT 

TO NEXT LIOCS 

TABLE ENTRY 



* PROCESS FILE 
♦ID OPERAND AND 
♦CHECK DATE ^K5 




DLBLL 

•••••Cl»«> 

♦FDKTV 



♦SET LOC. UNCLOR^ 

♦ +L TO THE ♦ 

♦ LOGICAL UNIT ♦ 
♦FROM THIS ENTRY^ 
♦IN LIOCS TBL+3 ♦ 



♦STORE RETENTION^ 

♦ PERIOD IN ♦ 

♦ BYTES 76-77 ♦ 

♦ OF OUTPUT ♦ 

♦ BLOCK ♦ 



RETURN FROM 

FDKTID, LINK 

REG+8 



CONVERT YR 

AND DAY TO 

BINARY 



STORE YEAR 

IN EXPIRATION 

DATE OF 

OUTPUT 

BLOCK 



♦ A5 
FILE ID = BLANKS 
FILE SERIAL = BLANKS 
FORMAT ID = 1 
VOL SEQ = X'OOOl' 
CREATION DATE = ZERO 
EXPIRATION DATE = ZERO 
RETENTION PERIOD = X'0007' 
FILE TYPE CODE = S 
SYS CODE = DOS/360 VER 3 



••♦••Dl^**^****** 

♦ SET DEFAULT ♦ 
♦VALUES IN FLDS ♦ 

♦ FILE ID ♦ 

♦ THROUGH ♦ 
♦SYSCODE ♦AS^ 



♦ RESET 
♦CURRENT EXTENT 

♦ DEFAULT TABLE 

♦ TO STANDARD 



SET UP FILE 

NAME END 
KEY FIELDS 



Gl ♦. 

♦ FILE 
NAME A 
SYSTEM 
FILE 

♦. *D5 . 



SET UNCLOR 

TO FOR 

SYSTEM CLASS 



FILE 
NAME EQ 
TO TBL 

♦. ENTRY. ♦ 



END 
OF 
TABLE 



♦ •••F2^*^*** 

INITIALIZE 

REGS FOR 

CNUNC01 

SUBROUTINE 

♦E5 



♦ VALIDATE AND ♦ 
♦CONVERT UNIT^G5^ 

♦ NO. TO BINARY ♦ 



RETURN FROM 

FDKTID LINK 

REG+4 



NUMBER ♦. YES ♦DS 

OF DAYS ...... FIRST 5 CHARACTERS 

G.T. .♦ . EQUAL IJSYS 
. 366 .♦ 

♦ . .» X 


♦ NO 

1 NVSERR 


♦ BM ♦ 

♦ C2^ 

♦ ♦ ES 

1. POINTL = ADDRE 



STORE DAY 

IN EXPIRATION 

DATE 



LINKR4 = ADDRESS OF 
FDKIJ2. 'ERROR' 
RETURN FROM CNUNOL 
ROUTINE 



MOVE FILE 

NAME INTO 

FILE ID AS 

DEFAULT VALUE 



♦ G5 
THE CODING FOR THIS ROUTINE 
ACTUALLY APPEARS IN THE 
SJOBCTLK PHASE. THE CHART 
REFERENCED IN A DIFFERENT 
PHASE REPRESENTS LOGIC 
IDENTICAL TO THAT FOUND 
IN THE SJOBCTLK PHASE. 




•*»»»H2^** ♦♦♦♦♦♦ 

♦ SET LOGICAL 

♦ UNIT DEFAULT 

♦ IN CURRENT 
♦EXTENT DEFAULT 
♦TBL FRM UNCLOR 



FDK2 X 

♦ SET MASK ♦ 

♦ DSEQMSK TO 
♦ ALLOW EXTENT 

♦ STATEMENT 
♦PROCESSING ♦ 



•*«.J1«»»«*.». 

GET ADDR OF 

LIOCS SYSTEM 

UNIT TBL-6 

INTO REG 

P0INT2 



SET ADDRESS 
OF NVSERR 
ERROR RTN 

INTO LINKR4 



♦ SET FLAG 
MTAFLG TO 

ASSUME 
EXTENTS 

♦ OMITTED 



LOAD REG 
WRKRG1 WITH 

MAX LNG-1 

OF FILE ID 

FIELD 



RETURN FROM FDKTID IS TO- 
1. A4 FOR ABSOLUTE 

DATE (LINK REG + 8) 
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Chart HF. $JOBCTLK - DLAB Statement Processor 
Refer to Chart 13. 



SCAN FOR 

LAST 

OPERAND 



tt»»»«Bl ********** 
•INIT LINKRG4 AS* 
» BRANCH REG TO * 
» THE INVALID * 
• STATEMENT MSG * 
» ROUTINE * 



.» WAS • 

VOL THE 
PREVIOUS 
. STMNT 



• INIT REG P0INT4* 
» AS POINTER TO • 
•THE LABEL AREA • 



POINT TO 2ND 

OPERAND 
-VOL SEQ NO- 



C2 •. 

• DID * 

A COMMA 

END THE 

SCAN 



.• VALID «. 
* LENGTH 
-MAX 4 CHAR- 



.* IS *. 




.•EXPIRATION ». 


YES 


DATE LT 




•.CREATION .* 




•.DATE .* 






X 


• NO 






• HS ♦ 




» C2* 










X 

»»»»C3***«**»*« 


NLSERR 




ZERO RESERVED 




AND EXTENT FILE 




TYPE FIELDS IN 




THE LABEL AREA 


« 



FILE 
ILTYP 

FOR 
DISK 



TYPE 

TO 
SEQ 



•BUILD COMPLETE 
♦ CARD IMAGE IN 
•BUFFR1, BUFFR2 



POINT TO 1ST 

OPERAND 

-51 CHARS- 



.• 1ST ». 

.• AND LAST ». NO 
.CHAR AN APOS-.»... 
*. TROPHE .» 



• STORE FILE ID * 
♦IN DATCRL, SET • 
» DAFMT TO 1 TO • 
•ENSURE FORMAT 1* 



CONVERT TO 

BINARY IN 

WRKRG1 



*»#.»F2**«****»* 

* STORE BINARY 
•VOL SEQ NO. IN 

* LABEL SAVE 

* AREA 

* DAVLSQ 



POINT TO 5TH 

OPERAND 
-SYSTEM CODE- 



.* 1ST *. 

.* AND LAST » 

•.CHAR AN APOS- 

•. TROPHE .• 



STORE SYSTEM 

CODE IN LABEL 

AREA, DASYCD. 

-13 BYTES- 



»»»**G2* W »*»** # ** 


##**»G3********** 


•D0P34 HM* 


•INIT REGISTERS • 




• POINT1 AND • 


•CHECK, CONVERT,* 


•POINT2 FOR NEXT* 


•STORE CREATION • 


* SCAN AND SAVE • 


• DATE IN LABEL • 


• IN TMPAR1 • 



»»«»»H2********* 
•UPDATE POINTER 
» P0INT4 FOR 

• STORING 

• EXPIRATION 

• DATE 



**»**J2»**»***** 
♦D0P34 HM 

*CHECK?~CONVERT, 

* STORE EXPIRA- 

* TION DATE 



»*»»»H3*»*»«***«* 
•INITIALIZE INST* 

* AT DSEQMSK TO * 
•INDICATE XTENT * 
» STATEMENT * 

* REQUIRED • 



#«»#*J3»»##*»#**» 

* SET AUX FLAG * 
♦BYTE, X'lO' OF * 

* LABEL TO 04 • 
♦TO INDICATE EX-« 
♦TENTS CONVERTED* 



♦ OPERAND 
OMITTED OR 

♦ . SD 



• RESET EXTENT • 
•COUNT FLAG BYTE* 

• FOR DA OR IS. • 
•TO 0, SET FILE • 

• TYPE TO -D-. • 



*«F4****^* 

SET 

SEQUENCE 

REQUIRES 

EXTENT 

FLAG 



G4 ». 

* TYPE * 

= DA FOR 

DIRECT 

ACCESS 



•***«H4* •»♦♦♦•♦•• 

• SET STATEMENT * 

• SEQ MASK • 

• DSEQMSK TO • 
•INDICATE EXTENT* 
•REQUIRED FOR IS* 



NO 


.* 


DATA 
SECURITY 




* 


.SPECIFIED. 


X 










•YES 


♦ BM • 






* C2» 


















NVSERR 




X 




#«D5««*»»*« 












SET DATA 






SECURITY 






SWITCH 




* 





SET STATEMENT 

SEQ FLAG INTO 

JBCSW5 



•****F5»******** 
« PUT FILE TYPE 
* INTO OUTPUT 
« BLK AND RESET 
*DATA LEN TO 84 



MOVE THE TYPE 
C OR E TO 
FILTYP FOR 
INDEX SEQ. 



***»#K1*»«*»***» 
♦INIT REGISTERS 

♦ P0INT1 AND 

♦ P0INT2 FOR 

♦ NEXT SCAN AND 
•SAVE IN TMPAR1 



»»»»«K2****^^*» 
•RESTORE P0INT4 ■ 

* TO POINT TO 

* CREATION DATE 

* IN LABEL AREA 



* OPERAND ♦. NO 

EITHER ISC .*... 
•. OR ISE .* 



• YES 

'. NVSERR 



164 DOS IPL and Job Control 



Chart HG. $JOBCTLK - XTENT Statement Processor (Part 1 of 
Refer to Chart 13. 



2) 



♦INIT LNKRG4 AS 

* BRANCH REG TO 

* INVALID STMNT 

* RTN 



Bl • . 
.* PREV- • . 
.*IOUS STATE-*. NO 
.MENT DLAB OR .*... 
•. XTENT .» 



»#»«*C1«*»»»**»* 
•INIT REGISTERS 

* P0INT4 AND 

* WRKRG1 



.* WILL *. 
.•THIS EXTENT*. NO 
.FIT IN LABEL .♦... 
». AREA .» 



• D2 



P0INT4 MINUS THE LENGTH 
OF THE VOL AND DLAB FIELDS 
IS SET TO THE BEGINNING 
ADDRESS OF THE CURRENT 
EXTENT IN THE LABEL AREA. 
WRKRG1 IS SET TO ENDING 
ADDRESS OF THE CURRENT 
EXTENT IN THE LABEL AREA. 



1. UPPER AND LOWER LIMIT CELL NOS. 
XTB1 AND XTB2 MUST BE EQUAL. 

2. UPPER EXTENT, XTUL, CANNOT EXCEED 
MAX VALUE, MXCCHH. 

3. LOWER EXTENT, XTLL, CANNOT 
EXCEED UPPER EXTENT, XTUL. 

4. IF SPLIT CYLINDER, LOWER HEAD, 
XTLLH2, CANNOT EXCEED UPPER 
HEAD.XTULH2 



C4 *■. 
.» IS ♦. 

XYES .• THIS THE • 
.•.FIRST EXTENT 



• D4 *.X. 

• *»• X 

ISCKSQ .•. 



NO .* •. YES 

...•. ASCENDING .*.... 

*. SEQ NO. .» 



XT0P3 X 

•XT0P34 HM 

•CHECK, CONVERT, 

♦ STORE LOWER 

• C1,C2,H1,H2 



•STORE LOW LIMIT* 

• CELL NO.B1, IN • 

• XTB1 OF LABEL • 

• AREA. INCR * 

• P0INT4 BY 4 • 



•CHECK, CONVERT 

• EXTENT 

• TYPE 



•CHECK, CONVERT,* 
* STORE UPPER * 
» C1,C2,HL,H2 « 



•RESTORE P0INT4 

• STORE UPPER 

• LIMIT CELL NO 
•1BI1IN XTB2 OF 

• LABEL AREA 



* FILE 

SEQUENTIAL 
♦. DISK 



EXTENT 
TYPE 1 
, 128 



SXTPOK 

•XT0P12 HM 

•CHECK, CONVERT, 

• STORE EXTENT 

• SEQ NO. 



•CHECK, CONVERT, 

• STORE EXTENT 

* SEQ NO. 



EXTENT 

TYPE GT 

2 



•CHECK, CONVERT, 

• STORE EXTENT 

♦ SEQ NO. 



♦CHECK, CONVERT, 

* STORE EXTENT 

* SEQ NO. 



SEQ 
NO. GT 

1 



NLSERR 
YES 



• YES 

.' NLSERR 



VALID 

EXTENTS 

•D2 
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Chart HH. $JOBCTLK - XTENT Statement Processor (Part 2 of 2) 
Refer to Chart 13. 



POINT TO 5TH 

OPERAND 

SERIAL NO. 



.« THIS *. 

NO .*UNIT EQUAL * 
...*. TO PREVIOUS 
*. UNIT .* 



Bl «. 
.* 1ST *. 

.» AND LAST • 
.CHAR AN APOS- 
». TROPHE .• 



NO .* IS 
THIS FIRST 

». EXTENT . 



#*#D1**»»*»* 

PUT FILE 

SERIAL NO. 

IN OUTPUT 

BLOCK 



NO .• SCAN 
C..». STOP CHAR 
». BLANK 



*«*««E1»««**»*««« 

•UPDATE POINTERS* 
« P0INT1 AND » 
•POINT2 FOR SCAN» 
# RTN. STORE IN « 
» TMPAR1 « 



POINT TO 6TH 

OPERAND 

-SYSXXX- 



Gl •. 

.» SCAN *. 

STOP CHAR 
A BLANK OR 
. COMMA . 



VALID 

LENGTH 

-1 CHAR- 



CONVERT B2 

TO BINARY IN 

WRKRG1 



•»»«F2»»**»»*«» 
STORE CURRENT 
CELL NUMBER, 

B2t IN XTB2 
OF LABEL AREA 

FROM WRKRG1 



##B3***«»*» 

•SET SWITCH 

MTRSVD AND 

MTAFLG AS 

LAST SD 

• EXTENT 



*###*C3-**#**»««* 

♦ SET "WRITE DISK 

♦ DATA LENGTH, 

* DTALGT, TO 

• 104 BYTES 



##D3*«*««*« 

• RESET ALL * 

FILE DEFIN. 

STMNT FLAGS 

IN JBCSW5 



OUTPUT EXTENT 

TO VOL AREA 

OF SYSRES 



B4 *. 
.* BIN *. 

.* NO EQ. « 
.PREVIOUS BIN 
*. NO. .• 



.• VOL • . 

.•SER. NO. EQ*. 

♦.PREVIOUS VOL . 

*. SER NO. .* 



SET NO 
XTENT 
FLAG 



PACKAG 

*#E4******* 

* SET BIT « 

•OF MTAFLG ON * 

•TO FORCE LIOCS * 

* LOOK AHEAD • 



XTUNIT X 

»«»*«C5*»***«»* 

* INCREMENT 
♦EXTENT CNT BY 

* IN BYTE 8 OF 

* FIRST EXTENT 

* -MTRSVD 



« B4* 


OUTLBL X 


NEWXTN X 




•*«»*F4********** 






* SET FLAG BYTE * 


* UPDATE LBLPTR * 


CONTROL 


* MTRSVD IN • 


* WITH ADDRESS » 




• LABEL+8 FROM • 


•OF NEXT EXTENT • 




• MTAFLG, LABEL • 


• SAVE AREA • 




* + X'10« * 


« ••*«*««•****•** 



.* IS *. 

» FILE TYPE 
SEQUENTIAL 
*. SD 



♦OUTPUT PREVIOUS* 

* XTENT TO VOL ♦ 

♦ AREA - SYSRES * 



*#«#»G5«»*»***»^« 

* INCREASE BYTE ♦ 
♦COUNT IN WRITE • 
♦DISK DATA LNG. • 

♦ DTALGT, BY 1 ♦ 
♦EXTENT 20 BYTES* 



♦CONVERT SYSXXX ♦ 
♦ TO SYMBOLIC • 
♦UNIT ADDR »H3* 



•STORE SYMBOLIC 
« UNIT ADDRESS 
• IN UNCLOR 



Kl *. 

.• LAST • 
♦ OPERAND 

STOP CHAR 
*. BLANK 



♦ •»«*H2**»»»*«^* 
♦INIT P0INT4 AS * 

♦ POINTER TO * 
♦PREVIOUS EXTENT* 

♦ AND ZERO BITS * 

♦ 0,1 OF MTAFLG • 



• H3 
THE CODING FOR 
THIS ROUTINE 
ACTUALLY APPEARS 
IN THE SJOBCTLK 
PHASE. THE CHART 
REFERENCED IN A 
DIFFERENT PHASE 
REPRESENTS LOGIC 
IDENTICAL TO THAT 
FOUND IN THE 
SJOBCTLK PHASE. 



*»#*H4****** *** 
RESTORE WRITE 

DISK DATA 

LENGTH TO 84 

BYTES IN 

DTALGT 



*««*«J4******** 


• « 




* MOVE CURRENT 






• EXTENT TO 






• OUTPUT AREA 






• OVERLAYING 






•PREVIOUS EXTENT* 




X 


• K5 






JSYSIN 






JSYSPH 


* F5 » 




JSYSLS 


* * 




JSYSLN 


*»** 




JSYSSL 
JSYSRL 
JSYSRS 



*#H5**««»*» 
•SET JBCSW5 ♦ 

• TO INDICATE 
» LABEL BLK 

* PRESENT AND 
NO STMNTS REQ. 



* B4^ 
CONTROL 



♦ K5 .* 

**YES 
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Chart HJ. $JOBCTLK - EXTENT Statement Processor 
Refer to Chart 14. 



(Part 1 of 3) 



♦ A5 
DEFAULT VALUES 
SET UP IN DLBL 
ROUTINE FOR. 

1. VOL SERIAL 

2. EXTENT TYPE 

3. EXTENT SEQ. NO. 

4. EXTENT LOWER LMT. 

5. EXTENT UPPER LMT. 

6. LOGICAL UNIT 

7. BIN NO. 



LOAD ADDR. 

OF NVSERR 

ERR RTN INTO 

LINKR4 



EXTENT 

IN 

.SEQUENCE 



ENOUGH 

ROOM IN 

LABEL 

♦.AREA . 



♦♦♦••El ♦ ♦♦ 

* SET DEFAULT 

* VALUES FROM 
•CURRENT EXTENT 
» DEFAULT 

* TABLE *A5 



B2 *. 

.• FIRST «. 

.• EXTENT * 

.SPECIFY LOGL 

•. UNIT .* 



FESYSX3 

♦PUT LOGICAL UNT* 
♦INTO EXTENT AND* 
♦ SPECIFY THIS * 
♦UNIT AS DEFAULT* 
♦IN NEXT EXTENT * 



SET FILE 

SERIAL FROM 

VOL. SERIAL 

NUMBER 



FILE 

TYPE = 

SD 



FDKTV2 

FEVSER 

»#»»*D2» 
•FSCAN 



GET VOL 

SERIAL 

OPERAND 



*##D3^»^*^»»« 
SET DEFAULT 

VALUE FOR 
EXTENT TYPE 



FEVSER2 

m»*mmf 2* ********* 
•FETINSR1 HC« 

• - insert*serial~» 
« no. in output • 

• BLOCK • 



OPERAND 

LENGTH GT 

1 



EXTENT 
TYPE EQ 

L 



**«»»F4«*»****» 

* PUT 128 

* INTO EXTENT 

* TYPE FIELD 
♦IN OUTPUT BLK. 



F5********* 

•FESEQ HL 

• PROCESS AND 

* INSERT EXTENT 
» SEQ OPERAND 



FESYSX2. X 

»*«»*H 1 *••»••••♦• 

♦CNUNCO GS» 

•CHECK?~CONVERT~» 
•SYSXXX TO LOG. • 
•UNT. CLASS, ORD» 

•K3 



• FIRST •. 
EXTENT 

• . . • 

*»NO 


YES 


X 

H2* '•. 

.♦ ARE ♦. 
♦ LOGICAL ♦ 

UNITS THE 
♦. SAME .♦ 

"♦YES 


NO X 


X 
R3 .♦. 
J2 •. 
.« WAS ♦. 

♦VOL SERIAL ♦. 
SPEC. ON LST . 
♦. EXTENT .♦ 

'♦NO 


* j 


!x 





FETYPE1 X 
♦FESEQ 



♦ B2 ♦ 

* • 
• ••• 



NVSERR 

FEVSER4 X 

•m*»*K2********** 

♦ SET DEFAULT • 
♦VALUE FOR NEXT * 
•EXTENT TO VALUE* 

♦ OF THIS VOL ♦ 

♦ SERIAL NO. * 



«*»»»J3***»**** 

• STORE EXTENT 

• TYPE IN 

• OUTPUT BLK. 



• K3 
THE CODING FOR THIS 
ROUTINE APPEARS IN 
THE $JOBCTLK PHASE. 
THE CHART REFERENCED 
IN A DIFFERENT PHASE 
REPRESENTS LOGIC 
IDENTICAL TO THAT FOUND 
IN THE SJOBCTLK PHASE. 



.•.ASCENDING SEQ.» 



♦ YES 

.'x... 
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Chart HK. $JOBCTLK - EXTENT Statement Processor (Part 2 of 3) 
Refer to Chart 14 - 



* EXTENT 

TYPE EQ 0, 
». 1 OR 2, 
*.GT 2 .* 



FILE 
TYPE E0 
.IND, SEQ 
*.EXP. .* 



*HS • 
» C2* 

NLSERR 
YES 

X 

• HJ » 

* G4« 

FETYI 



»»»**C3********** 
• RESET IMMED. • 
» OPERAND AT • 
» FESPLIT3 * 
•INDICATING EXTS* 
» NOT OMITTED » 



.* SEQ 
• . NO. = OR 
*. 1 



PE1 

NO 

, X .. 



FETKNO 

#»»»*D3* 
•FETKTK 



FESPLIT 
*FSCAN 



* GET AND 
•CONVERT NO. OF 

• TRKS. OPERAND 



* Gl 


• . .. 






• ••■► X 


FESEQCK 


.*. 




Gl •. 






EXTENTS 


• .IN 


ASCENDING 




SEQ ;. 










• YES 




X 




*•»* 




* » 




• F2 • 



• SET IMMEDIATE ♦ 

• OPERAND AT * 

• FESPLIT3 TO • 

• FF INDICATING ♦ 
•EXTENTS OMITTED* 



•GET AND CONVERT* 
» RELATIVE • 
•STRT. TRK OPND.« 



OPERAND 


ft 


. YES 


OMITTED 


# 
















• NO 






X 












F3 •• 












HIGH 






TRK GT 






. 19600 


# 










• • . • 






' 


*N0 






') 


( 






»*G3**«****« 










STORE HIGH 






TRACK NO 






FOR OUTPUT 




• ! 




X '. 



FETKNOl 

*#**#H3**»*«*»*** 
•TEST FOR START • 

• TRK. AND TRK. • 

• NO. BOTH « 
•PRESENT OR BOTH* 

• NOT PRESENT • 



FILE 
TYPE=IND. 
.SEQ. EXP. 



START 

TRK GT 

19600 



•#K2»**«»*» 

PUT START 

TRACK IN 

OUTPUT 

BLOCK 



GET SPLIT 

CYLINDER 

OPERAND 



.*. 


FESPLIT1 .*. 


D4 *. 




D5 *. 








.* EXTENT *. NO YES 


.* EXTENT •. 


». TYPE=128 .• 




TYPE EQ .» 






*. 128 •• 










X 




• YES 




• NO 




»HS- * 






* C2« 








.X..* E5 • 










NLSERR 


X *••* 


X 


FESPLIT2 .*. 


•***«E4*******«»* 




E5 ». 


•NUMCON HR* 




.** BLANK *•. YES 


• CONVERT * 




. END LAST .*... 


* TO * 




». SCAN .* 


* BINARY * 




«. .* 



F4 •. 


» 


it* 


»»F5»«*****«*» 


.** VALUE "*. YES 
*. GT 19 


•SCANR3 BF* 


# 




GET B= * 








PARAMETER • 


















• NO 






X 


X 








••*»»G4*»«*«*«*** 






G5 •. 


* STORE SPLIT * 








♦CYLINDER STRT. • 


NO 




EQUAL *. 


• TRK. NO. FOR * 


:...» 




SIGN END .• 


* OUTPUT • 






. SCAN .* 


*• *# »••«*• *«• 


X 




** *** 



* * 




*#*«»H5«»*»«»*»*» 






•FEBIN1 HB* 

• PROCESS ~ ~* 

• B=BINS * 

• OPERAND * 

*.X 

FESPLIT4 X 
FESPLIT3 .». 


###J4#«»#»*»* 




J5 •. 






.•EXTENT *. 


CLEAR EXTENT 




YES .* LIMITS *. 


LIMITS FOR 


*X.. 


•OMITTED ON 1ST.» 


THIS EXTENT 




*. EXTENT .» 








************* 


** 


**N0 


.X 







FETYPE1 * G4» 
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Chart HL. $JOBCTLK - EXTENT Statement Processor (Part 3 of 3) 
Refer to Chart 14. 



FESEQ 



» GET EXTENT 


-*- 


~» 


* SEQUENCE 






• OPERAND 




* 




< 












C2 ». 












NO .• OPERAND 






...». OMITTED 




* 














X *. .» 






**»•• #YES 






• HM » 






» D2» 
























XT0P12A 








X 






D2»»*«»» >•»* 


•FETKTK2 


HL» 


♦ TEST FOR 




» 


• OPERAND 






• OMISSIOr 


i VALID 


t l 



• GET RELATIVE 

• START TRK. OR 

• TRK. NO. OPRND 



INCREMENT 

PREVIOUS 

EXTENT SEQ 

NO. BY 1 



» F2» 
XTOP12B 



.*. 




FETKTK1 .*. 










D3 *. 




D4 ». 
























.• OPERAND ». YES 




• OPERAND * 


. NO 






«. LENGTH GT. 




OMITTED ON 










• . 5 .• 






FIRST EXTENT* 




































X 






• NO 






• YES 




• HS • 

• C2« 

NLSERR 






X 






X 










»»*«*E3 *••* 






t*»»E4»»*»*»«* 










•NUMCON HR» 






















LOAD ADDR. IN 










• CONVERT * 






LINKR3 INTO 








FETKTK2 


• OPERAND » 






LINKR1 










• TO BINARY * 














...„..♦.*.♦.. 


X 






'.X 

X 














FETKTK2 .». 










F3 *. 






F4 *. 


























.* OPERAND *. NO 




YES . 


• FILE * 










*. POSITIVE ,»..X 


X 




TYPE EQUAL 










♦. VALUE .* 






••IND. SEQ .• 


























». .» X 














•YES »•••* 


• NO 










*BM * 












* C2* 








































NVSERR 












***#»G3»*** # »***» 




X 














»#*G4»*»»*»*»* 








* ADD START • 




RETURN TO 










• TRK VALUE TO • 




LINK REG 










• OPERAND. • 




«H4 










*+•••*•••*•»•»•*• 

















***»H3«»*«»*» 
RETURN TO 
LINK REG + 4 



IF THIS RETURN WAS 
VIA FETKTK1, RETURN IS 
TO THE ROUTINE THAT 
CALLED FETKTK. 
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Chart HM. $JOBCTLK - Label Processing Subroutines (Part 
Refer to Charts 13 and 14. 



1 of 3) 



•«»#A1**»»* 
D0P34 



#*A2*«««* 
XT0P12 



»A4«»»*« 
CONCAT 



POINT TO 3RD 

OPERAND 

-CR DATE- 



POINT TO 

OPERAND 

TYPE/SEQ NO. 



*PT. TO OPERAND ♦ 
•LOWER AND UPPER* 
« EXTENT * 



• SAVE 1ST CARD * 
•IMAGE IN BUFFR1* 

• FROM BUFFER * 



•RESTORE BUFFER 
« FOR ERROR 

• LOGGING 

• ONLY 



Ci ♦. 
.* DID ♦. 

.» A COMMA • 
.END THE SCAN 



.*. 


XTOP12A .». 


Dl *. 


D2 *. 


VALID •. 




LENGTH *. NO 


NO .» VALID 


5 CHARS- .»..X 


X....«. LENGTH 


.* 


*.l-3 CHAR 



• STORE BINARY 
•YEAR IN DACRYR 

• FROM WRKRG1 



HI ». 
.* IS •. 

♦ BINARY 

DAY 366 OR 
•. LESS 



STORE BINARY 

DAY IN DACRDY 

FROM WRKRG1 



RETURN TO 

CALLING 
SEQUENCE 



C2 *. 

.* DID *. 
.» A COMMA •. 

.END THE SCAN .« 



C3 *. 
.* DID •. 

.• A COMMA » 
•.END THE SCAN 



READ CONTINU- 
ATION STMNT 
INTO BUFFER 



MOVE OPERAND 

FIELD FROM 

BUFFER TO 

BUFFR2 



• CONVERT TO • 




• CONVERT TO 


"l 


• BINARY IN • 




• BINARY IN 




• WRKRG1 • 




* WRKRG1 


• 


• *#» 














...» HL » 








• F2» 








X •••• 




X 




XTOP12B .•. 








F2 ». 




F3 *. 












.# BINARY ♦. YES YES .« IS ♦ 




•. VALUE GT .« 


...X... 


.•. EXTENT 


• 


•. OOFF .« 


. 


*. ZERO .* 














X 






• NO 


• HS • 

• C2» 

NLSERR 


• NO 




X 




X 




#*#»»G2***«»»**«* 




•*«*«G3********** 


• STORE BINARY ♦ 




• SAVE Bl IN 




• VALUE IN ♦ 




• SVXTB BUILD 




•EXTENT SEQ NO. ♦ 




•EXTENT INFO IN 




• -XTSEQN- ♦ 




• LABEL AREA 




• «K5 ♦ 




• FROM WRKRG1 


t l 



LOG 
STATEMENT 
ON SYSLOG 



****«C5«*******« 

• UPDATE REGS 
•POINT1, POINT2 

• FOR SCANNING 

• BUFFR1 AND 

• BUFFR2 «E5 



RETURN TO 

CALLING 

SEO 



THE COMPLETE RECORD, 
STMNT1 AND STMNT2 IS 
PROCESSED IN BUFFR1 
AND BUFFR2. 



• F5 

THE CODING FOR THIS ROUTINE 
ACTUALLY APPEARS IN THE 
SJOBCTLK PHASE. THE CHART 
REFERENCE IN A DIFFERENT 
PHASE REPRESENTS LOGIC 
IDENTICAL TO THAT FOUND 
IN THE SJOBCTLK PHASE. 



**H2»»»«»»» 
RETURN TO 

CALLING 
SEQUENCE 



*,»H3#»««*»« 
RETURN TO 

CALLING 
SEQUENCE 



THIS ROUTINE IS USED TO PROCESS THE LOWER AND 

UPPER LIMIT OF EXTENT STATEMENT. 

THE VALUE OF BL IS SAVED IN SVXTB FOR THE 

CALLING SEQUENCE. 

C1C1, C2C2C2,H1,H2H2 ARE STORED IN THE LOWER 

AND UPPER LIMIT FIELDS OF THE LABEL AREA. 

C2C2C2 IS CHECKED AGAINST THE MAX. CYLINDER NO. 

OF 199. 



•K2 
THE REGISTER POINT* POINTS TO THE CREATION DATA FIELD 
IN THE LABEL AREA WHEN PROCESSING THE CREATION DATE. 
IT POINTS TO THE EXPIRATION DATE FIELD IN THE LABEL 
AREA WHEN PROCESSING THE EXPIRATION DATE. THE CALLING 
SEQUENCE UPDATES AND RESTORES P0INT4. 



• K5 
WHEN RETURN IS MADE TO 
THE CALLING SEQUENCE THE 
DESIRED BINARY VALUE 
IS IN WRKRG1 AND IN 
THE EXTENT SEQ 
NUMBER FIELD XTSEQN. 
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Chart HN. $JOBCTLK - Label Processing Subroutines (Part 2 of 3) 
Refer to Charts 13 and 14. 



*#»AL**»**»» 
LBLOUTF 



• MORE 

REQUIRED 
•STATEMENTS. 



•««CL**«*»*»* 

SET BLOCK 
NOT PRESENT 
INDICATION 

X'lO' IN 
JBCSW5 



PLACE ADDRESS 
OF LABEL SAVE 

AREA IN 

LBLPTR 



RETURN TO 
CALLING SEQ 



NO .» FILETYPE 
,..*. EQ 
•. SD 



# SET FLAG IN 
*LAST SD EXTENT 

• BLOCK AND SET 

* FLAG FOR SD 




IS ». YES 
THIS .*... 

.STANDARD .• 
•.LABEL.* 



##«*»B3»*»»»»»»«« 

♦ CALCULATE • 

* DISPLACEMENT • 
•INTO TRK ALLOC • 
•TABLE FOR THIS • 
•LBL + PARTITION* 



••»*«C3**»****» 

• LOAD START 
» AND END TRK. 

• NO. INTO 

• WRKRG1 



LBLOUTOB 

••«««D3**»«*»*» 

♦ PUT END TRK 

♦ NO. INTO 

* WRKRG4 

* FROM 

• WRKRG1 



SHIFT WRKRG1 

SO IT WILL 
CONTAIN ONLY 
START TRK NO. 



»»»«F3*«»««»«» 

PUT START 

TRK. IN 

COMPARE INST 

FOR EOF LOOP 

CONTROL 



DECREMENT 

START TRK 

NO. 



• LOAD DATA 

• LENGTH INTO 
» WRKRG3 AND 
•ADD KEY LENGTH 



• STORE LENGTHS 
•INTO WRITE AND 

• CHECK CCW'S 



COMPUTE 

SPACE NEEDED 

ON TRACK 

FOR DATA 



GET REMAINING 

TRK. 

CAPACITY 



CALCULATE THE 
NEW REMAINING 
TRK. CAPACITY 



SET BLOCK 

NOT PRESENT 

FLAG 



LOAD START 

AND END 

TRK. NO. WITH 

STDLABEL IN 

WRKRG1 



NO .« IS 
,..*. THIS A 

•.NEW AREA 



SET THE 
WRITE DISK 
HEAD NO. TO 
START TR-1 



.X« A5 



•«*«K1********* 

REPLACE END 

TRK. NO. WITH 

UPPER HEAD 

NO. IN 

WRKRG1 



• K3 
DATA LENGTH + KEY 
LENGTH MULTIPLIED BY 
537 (2311> OR 2137 
(2314), DIVIDED BY 
512 (2311) OR 2048 
(2314) AND ADD 81 
(2311) OR 146 (2314) 
TO QUOTIENT. 
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Chart HP. $JOBCTLK - Label Processing Subroutines (Part 3 of 3) 
Refer to Charts 13 and 14. 



ENOUGH 

ROOM ON 

TRACK 



»*«»A3*»»**»»** 

RESET REC 

NO. TO 

AND WRKRG1 TO 

NO. BYTES PER 

TRACK 



LOAD LINK 
REG FOR 
IOROUT 
RETURN 



LOAD 

CURRENT 

TRK. NO. IN 

WRKRG1 



« CALCULATE 

* NEW REMAINING 
•TRACK CAPACITY 

• «E1 



SET HEAD 

NUMBER 

FOR EOF 

WRITE 



YES 


* LAST * 






TRK. OF AREA 
♦.EXHAUSTED.* 




X 








• NO 




*HS » 






• C3» 
















* 








LAXERR 


X 






«#»D1«»*»*»«* 










• 


INCREMENT 


* 




TO' NEXT TRK 






AND STORE IN 




* 


WHH/ 


\DD 


n-* 



SUBTRACT CURRENT BYTE 
COUNT FROM REMAINING 
TRACK CAPACITY 
ORIGINALLY SET AT 3625 
(2311) OR 7294 (2314). 



•HI 
THE CODING FOR THIS ROUTINE 
ACTUALLY APPEARS IN THE 
SJOBCTLK PHASE. THE CHART 
REFERENCED IN A DIFFERENT 
PHASE REPRESENTS LOGIC 
IDENTICAL TO THAT 
FOUND IN THE SJOBCTLK 
PHASE. 



ENOUGH 

ROOM ON 

TRACK 



INITIALIZE 

SEEK TRACK 

AND RECORD 

NUMBER 



UPDATE WRITE 

RECORD 

NUMBER AREA 



RELEASE 
CONTROL 



LOAD ADDRESS 

OF THE 

SYSRES CCB 

INTO REG 1 



• START 

OF 
•.NEW AREA 



.* FIRST •. NO 
». TRK OF THIS .»... 
*. AREA .• 



•♦D4»*»**« 
RESTORE 

DATA 
LENGTH 

FROM 
WRKRG1 



ISSUE 
I/O 
• HI 






ISSUE 
I/O 
• HI 



RETURN TO 

CALLING 

SEQ 



»»»*J3*«»«»»»» 

LOAD DATA 

LENGTH INTO 

WRKRG1 FOR 

SAVING 



SET DATA 

AND 

KEY LENGTH 

TO ZERO 
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Chart HQ. $JOBCTLK - RSTRT Statement Processor 
Refer to Chart 14. 



INITIALIZE 

ERROR LINKAGE 

REGISTER 



♦ A5 
THE CODING FOR THIS ROUTINE 
ACTUALLY APPEARS IN THE 
SJOBCTLK PHASE. THE CHART 
REFERENCED IN A DIFFERENT 
PHASE REPRESENTED LOGIC 
IDENTICAL TO THAT FOUND 
IN THE SJOBCTLK PHASE. 



POINT TO 1ST 

OPERAND 

-SYSXXX^ 



CI *. 

♦ DID * 

A COMMA 

END THE 

SCAN 



•CONVERT SYSXXX ♦ 
* TO SYMBOLIC * 
•UNIT ADDRESS»A5» 



SYSXXX • 
PROGRAMMER 
. UNIT .• 



COMPUTE LUB 

POINTER IN 

WRKRG3 



CHECK THE 

ASSIGNMENT 

FOR THIS UNIT 



POINT TO 1SI 
PARAMETER 

-NNNN- 



.» DID *. 

.* A BLANK « 

• .OR COMMA END 

». SCAN .• 



.* VALID •. 

NO .*LENGTH 1-4 

,X...». CHARACTERS 



* C2* 

NVSERR '. 
X 
««***E2*««*» 

♦NUMCON 


HR^ 




♦VALIDITY CHECK • 
•ANO CONVERT TO ♦ 
♦BINARY «E3« 



♦ E3 
THIS SUBROUTINE IS USED 
TO VERIFY THAT EACH 
CHARACTER IS OF THE 
RANGE 0-9. THE RESULT 
OF THE BINARY CONVER- 
SION IS IGNORED. 



♦ INIT REGISTER • 

♦ POINTS AS • 

♦ POINTER TO • 
♦LABEL SAVE AREA^ 



C4 
.♦ HAVE ♦. 
.LABEL STATE-^ 
. MENTS BEEN 
• . PROCESSED. ♦ 



.♦ IS ♦. 

♦CHECKPOINT 

UNIT A SEQ. 
♦. DISK 



♦ SET BIT I ON 

♦ IN MTRSVD AND 

♦ MTAFLG TO 

♦ INDICATE LAST 
•SEQ DISK ENTRY 



♦SAVE CHECKPOINT* 

♦ NUMBER, RIGHT • 

♦ ADJUSTED, IN ♦ 

♦ CHKPTN • 



.♦ DID ♦. 
.* A BLANK ♦. YES 
.END THE LAST ...... 

*. SCAN .• 




LOADRS1 

•*»»F4 
LBLOUT 



OUTPUT LABEL 
TO VOL AREA 
OF SYSRES 



♦PROHIBIT WRITE 

♦ OPERATION ON 

♦ SYSRES. PIB 

♦ ASSIGN FLAG, 

♦ BIT 8 OFF 



SAVE PUB 

POINTER IN 

PUBADR FROM 

WRKRG4 



BLANK PHASE 

NAME ID CHAR 

-PHSNAM+7- 



POINT TO 2ND 

PARAMETER 

-FILENAME- 



J2 ♦. 
.* DID ♦. 

.♦ A BLANK * 
.END THE SCAN 



K2 *. 

» VALID •. 
LENGTH ♦. NO 
CHARACTERS. ♦..X 



•RELEASE SYSTEM 
» AND SET SYST. 
• MASK TO FF 



•INIT REGISTERS 

• AND 1 FOR 

• FETCH 
» *J5 



• ♦•^♦••♦•*" 
SVC 2 FETCH 
B-TRANSIENT 
-$$BRSTRT- 



REGISTER IS SET TO 
THE ADDRESS CONTAIN- 
ING THE SYMBOLIC UNIT 
ADDRESS, UNIT AND 
CLASS. 

REGISTER L IS SET TO 
THE ADDRESS CONTAIN- 
ING THE NAME OF THE 
B TRANSIENT TO BE 
FETCHED. 
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Chart HR- $JOBCTLK - Miscellaneous Subroutines 
Refer to Charts 13 and 14. 



*A3****** 
CHKRNG1 



SET 

RANGE 
TOP TO 9 



CHECK RANGE 

OF CHARACTERS 

(0-9) 



CONVERT 

NUMBER TO 

BINARY 



*«#F1»#»«*#«« 

RETURN TO 

CALLING SEQ 



SET LIMIT 

FOR 

DECIMAL 

CHECK 



#««*C3*«*»***»» 

GET CHARACTER 
STRING ADDR 
AND NUMBER 

OF CHARACTERS 



CHKRNG 



IS 


#, 


YESX 


CHAR. GT 






MAX 
















X 


♦ NO 




«BM * 
♦ C2* 


X 










NVSERR 


F3 «. 












END 






OF CHAR 






STRING 


.* 





*#«G3**«*»»*»* 
RETURN TO # 
CALLING * 
SEQ * 
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Chart HS. $JOBCTLK - Error Subroutines 
Refer to Charts 13 and 14. 



*A1 
HA-E3 
HOD2 
HF-C1 

HG-B4,C4,D4 
HJ-J4 
HK-F1.G1 
HP-C4 



*A2 
HF-B3 

HG-G4,G5,Hl,H2iH3»J4,K3 »A3 
HJ-E4.E5 HG-D1 

HK-Bl,C2,0<irn3,E;i,Jl f K3 HJ-D1 
HL-D4 HP-C1 

HM-F2,F3 



•»#*»C1«*«»»»»»«» 


«#*«#C2«****»*»»* 


*»*»«C3»**«»*»*»* 


•»«**C4********** 


» POINT TO « 




• POINT TO ♦ 


» POINT TO ♦ 


» DESIRED » 


* TURN ON * 


• OESIRED * 


• DESIRED * 


» MESSAGE • 


« AUTO CANCEL * 


♦ MESSAGE * 


* MESSAGE * 


» ISiOD » 


* SWITCH * 


• 1L10D * 


* 1A40D * 


• *G1 • 


••••••*•*»*•••«.. 


♦ »G1 * 


* #G1 * 



*»D2*»»»»* 

POINT TO 

DESIRED 

MESSAGE 

LLOOD 

*G1 



MESSAGE 
**.A*-6d**" 



.DESCRIPTION 

* INVAL ID* LOGICAL* UNI t'sPECI FICAT ION* 



1L00D 
"iLLOD* 
'ISIOD* 



.INVALID LABEL SYNTAX 

* LABEL *AREA* EXHAUSTED 

* STATEMENT* OUT* OF* SEQUENCE* 
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Chart JA. $JOBCTLM - Recorder File Initialization 
Refer to Chart 15. 



Al *. 

ROD *I* 


CES 
X 


«»«*»A2**»*«* 
» INITIALIZE 

• CONSTANTS 
» FOR RF . 
« PERCENTAGE 

• FULL 


•NO 


*JH * 
* Bl« 


'...• 


X 
•Bl****«*«*«* 

TL CM* 

NITIALIZE * 
ADCONS * 


ROD 


RASSYS X » 
TESTOP .*. 

B2 • . 

.»" RMS 
«. IN 

«. SYSTEM 



X 


CALLTTR X 




♦*»»»C2**«»*» 


FIND POINTER » 


• SVC2 


TO SYSREC * 


» BUILD LOAD 


ENTRY IN LUB » 


« LIST FOR 


AND POINTER * 


* RMS 


TO PUB *A5 * 


* *B5 



INDICATE 

SYSLOG 
ASSIGNED 



SYSLOG 
A CONSOLE 

PRINTER . 
».KEYBD.» 



INDICATE 

SYSLOG IS 

A 1050 



NOTINSYS X 

e»»»»D2»»*»*»***» 
» GET SDR COM. • 
•REGION ADDR VIA* 
» COMMUNICATION * 

* REGION * 

* EXTENSION * 



* TOTAL 
RECORD 
♦.COUNT EQ 
*1 TRACK* 



INCREASE REC. 

COUNT BY 1 

FOR END REC. 

-WRKRG4- 



DECR. REC. 

COUNT BY 

RECORDS 

PER 1 TRACK 



*A5 
PIK - ADDRESS OF PIB 
PIB+2 - SYSTEM LUB INDEX 
USE INDEX TO FIND 

LUB TABLE 
LUB+20 - SYSREC 
POINTER TO PUB IN 

COM REGION 




«B5 

THE B TRANSIENT, SSBCCHHR, 
IS CALLED TO BUILD THE 
LOAD LIST FOR RMS. SEE DOS 
LOGICAL TRANSIENTS, GY24-5152, 
FOR MORE INFORMATION ABOUT 
SSBCCHHR. 



GET LOWER 

LIMITS 

HEAD -WRKRG4- 

CYL -WRKRG3- 



*««D3******** 

INCR. TRACK 

COUNT 

DECR. REC 

COUNT BY 1 

TRACK CAP. 



E2 *. 




*E3 






TEST SDRFLGS IN SDR 


RF * 


NO 


COMMUNICATION WITH 


EQ CREATE 


*. .. 


. X'08' . 



LAST 
TRACK ON 
. CYL. 






**««»D5******* 

* PLACE END 

* ADDRESS IN 

* LASTRK 



* INCREASE 
.X* TRACK 

* ADDR BY 1 

* TRACK 



OPEN RECORDER 

FILE (SYSREC) 

AS OUTPUT 



»*«*»G2«******** 

* GET THE 

* NUMBER OF 

* SDR RECORDS 

* AND STORE 
•FOR FORMATTING 



*G3 
IF SDR IS SPECIFIED, 
THE RECORD COUNT WILL 
BE IN BYTES 3 AND 4 
OF THE SDR COMMUNICATION 
REGION. 



INCREASE 
CYLINDER 
ADDR BY 1 
CYLINDER 



SDR ». NO 
SPECIFIED .«... 
*G3 .» 



DECREASE 

TRACK 
COUNT BY 



OPNERR 




X 

Jl* **. 


NO 






...* 


• 


2314 


X 






***» 




•YES 



INITIALIZE 

DTF FOR 

2314 



GET NUMBER 

OF RECORDS 

PER TRACK 

-WRKREG3- 



»«»«#K2»****«**»» 
» FIND TOTAL • 

• NO. OF SDR • 
•RECORDS + HEADR* 

• -WRKRG1- * 

• *K3 * 



• J3 * 

THE CODING FOR THIS ROUTINE ACTUALLY 
APPEARS IN THE SJOBCTLM PHASE. THE 
CHART REFERENCED IN A DIFFERENT 
PHASE REPRESENTS LOGIC IDENTICAL 
TO THAT FOUND IN THE SJOBCTLM PHASE. 



FOR. 2311, REQUIRE ONE 

TRACK FOR EVERY 29 

RECORDS OR LESS. 
FOR 2314 AND 2319, REQUIRE ONE 

TRACK FOR EVERY 38 

RECORDS OR LESS. 
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Chart JB. $JOBCTLM - Create Recorder File (Part 1 of 2) 
Refer to Chart 15. 



LAST 

TRACK ON 

.CYLINDER 



SET TRACK 

ADDRESS 

TO 



•••A2«***«»* 

INCREASE 

TRACK 

ADDRESS 

BY 1 TRACK 



WRITE 
HEADER 
RECORD 



»*#C1#*»««»» 

INCREASE 

CYLINDER 

ADDR BY 

1 CYLINDER 



CLEAR 

DATA 

FIELD 



•PLACE COMPUTED 

# ADDR OF START 
•OF OBR RECORDS 

• IN OBR ADR 



ALL INFORMATION IS 
FROM THE FIRST 32 
BYTES OF THE SDR 
COMMUNICATION REGION. 



* SET OBR AND 

• SDR DISK ADDR 
•IN SDR COM REG 



SET UP 

DISK ADDRESS 

FOR WRITING 

RECORD 



*»»H2«***»»* 

SET UP 

HEADER 

RECORD IN 

DATA FIELD 

•HI 



I 


GET ADDR 

OF PUB 

TABLE 

^WRKRG4- 










SDRWRT 
TPSDRN 


X 
E4* **. 




..x»! 


END 

OF PUB 

TABLE 





• F5 
FROM EACH PUB ENTRY— 

1. SET CHANNEL AND 
UNIT NUMBER AS KEY 
FIELD. 

2. SET OEVICE TYPE AND 

DEVICE 

CHARACTERISTICS 
AS DATA 



•G4»««** 
FORMAT 

SDR 
RECORD 



WRITE 

SDR 

RECORD 
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Chart JC. $JOBCTLM - Create Recorder File (Part 2 of 2) 
Refer to Chart 15. 



OBRWRT X 
•OBRSET 



SET I/O AREA 

FOR OBR 

PROCESSING 



CLEAR 

DATA 

FIELD 



»»»»»C1»»*»»»»* 

• SET UP KEY 

• (X'FFFF') 

• TO COMPLETE 
» TRACK FORMAT 



Dl *. 

.• IS *. 

ENTIRE 

TRACK 

.FORMATTED. 



02 *. 

• LAST • 

RECORD 

OF LAST 

TRACK 



»**D3»* 

SET UP KEY 

X'FFFE^ FOR 

LAST SDR 

RECORD 



B4 ». 

# UPPER • 

EXTENT 

LIMIT 

REACHED 



0BRWRT2 

♦••#B5 
WRITE 



WRITE 

OBR 

RECORD 



WRITE 

OBR 

RECORD 



SET CURRENT 
ADDRESS IN 
DATA FIELD 



SET CURRENT 
ADDRESS IN 
DATA FIELD 




WRITE 

SDR 

RECORD 



WRITE 

EOF 

MARKER 



RMS 

IN 

SYSTEM 



NO .» 10 *. 
...*. TRACKS 

».IN SYSREC* 
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Chart JD. $JOBCTLM - Check Recorder File (Part 1 of 4) 
Refer to Chart 15. 



• SET OBR/SDR 
•DISK ADDRESSES 

• FOR EOF 

• CHECK 



•*B1**«*«*« 
SET INPUT 
INDICATOR 

IN 
IJYSRC+21 

• B2 



X'02' INDICATES INPUT. 



GET ADDRESS 

OF PUB 

TABLE 

-WRKRG4- 



SDRUNRC .*. 




A5 • . 






YES . 


UNRECOVERABLE. 


• . . *. 


I/O .• 




*. ERROR .• 






X 






• NO 


JN ♦ 




B3* 














X 


UNRERR .». 




B5 *. 








« DEVICE *. NO 


*. 


TYPES EQUAL 



OPEN RECORDER 
FILE AS » 
INPUT 



SET UP 

DISK ADDRESS 

FOR READ 



READ 
HEADER 
RECORD 



END 

OF PUB 

TABLE 



MOVE CHANNEL 

AND UNIT 

FROM PUB TO 

KEY FIELD 



•JF 
• J4» 

PUBNEXT 



UPDATE TO 

NEXT 
PUB ENTRY 
-WRKRG4- 



RESET 

DISK ADDR 

FOR 

READ 



• E2 
IF NO SDR HEADER KEY 
IS FOUNDt THE FILE IS 
ASSUMED TO HOLD OBR 
RECORDS ONLY. 



SDRSRCH 

••••E3***»»»»» 
SDRREAD J 

sIarch FOR 

• RECORD 
BY KEY 



RECORD 

FOUND 

». »EZ . 



.* *. YES 

•.UNRECOVERABLE 

•. I/O .♦ 
•.ERROR.* 



.• 


F3**"». 

NO *• 

RECORD' 
FOUND •• 

"•NO 

X 

t«G3«»**«**» 

RESET 

DISK 

ADDRESS 


. YES 


NEXTTR 

»»*»»F4»»»»»*»«»» 
•SDRUPDT JK» 


* 


* 


< • TO NEXT • 
• TRACK • 


CHECK 

* 




NO .• 


X 
H3* "•. 

KEY OF 









.• OBR •. NO . 

.X». FILE 

•. REACHED .• 



• PLACE OBR/SDR 
•DISK ADDRESSES 

• IN SDR 

• COM REGION 
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Chart JE. $JOBCTLM - Check Recorder File (Part 2 of 4) 
Refer to Chart 15. 



SET DISK 

AODRESSES 

FOR I/O 



SET ADDRESSES 

IN SDR COMM 

REGION 



SET I/O AREA 

FOR OBR 

PROCESSING 



ADDSDR X 

#****B3********« 

* SET UP 
•KEY X'FFFF" TO 
•FIND AVAILABLE 

* FILE ENTRY 



**C3»***»»* 

SET UP 

DISK ADDR 

FOR READ 

-DISKAD- 



SRCHSDR 

**«**D3*» 
♦SDRREAD 



SEARCH FOR 

AVAILABLE 

ENTRY 



***E1«***««» 

SET UP OBR 

HEADER 

RECORD 

-KEYFLD- 

• E2 



WRITE 
HEADER 
RECORD 



*E2 

ALL INFORMATION FOR 
THE HEADER RECORD IS 
OBTAINED FROM THE 
FIRST 32 BYTES OF THE 
SDR COMMUNICATION 
REGION. 



E3 •. 


**»** E4 »»♦»»»*»#* 


E5 ». 




•SDRUPDT JK* 




NO *. YES 




.• OBR 


RECORD .♦ 


..X* UPDATE TO *.... 


....X». FILE 


FOUND .• 


• NEXT * 


•. REACHED 


.* 


« TRACK * 


*. 



UPDATE 

DISK 
ADDRESS 



UNRCSDR .*. 








F3 ». 
















.UNRECOVERABLE 


. YES 






*. I/O 








*. ERROR .* 


















X 






♦ NO 


***** 




* G4 * 




• JN • 








• B4« 








* * 
















UNRERR1 






X 






X 


*****G3******** 






f***G4*»****»*»* 


• SET UP 






MOVE DEVICE * 


• DISK ADDR 


* 




TYPE AND • 


• FOR 




* 


:haracteristics« 


• SEARCH 


* 


* 


TO DATA FIELD * 


»**< 


* 


* 


it*************** 



•YES 

X 

*JN * 
• B2» 

FULERR 



*H1»*»»» 

CLEAR 

HEADER 

RECORD 

-KEYFLD- 



*JC * 

* B4» 

OBRWRT1 



**»**H3»*«**«»»»» 


****H4»**««**« 


• SET CHANNEL • 


WRITE J 


* AND UNIT • 




• FROM PUB • 


WRITE 


• AS KEY » 


• SDR 




RECORD 



RESET 

DISK 

ADDRESS 



* C5* 
PUBNEXT 
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Chart JF. $JOBCTLM - Check Recorder File 
Refer to Chart 15. 



(Part 3 of 4) 



SET UP 
SEARCH 
ADDRESS 



»A2 
JC-F5.G5 
JG-04 



OBRRCD 

A3* 

•IDCHK 



CHECK FOR 
CPU-ID, IPL 
AND EOD REC 



OBRKYO X 
»»»*A4»» 
OBRREAD 



READ OBR 
HEADER 
RECORD 



CI *. 

END 

OF 

FILE 

**»N0 



MOVE OBR 
HEADER INF. 

TO SDR 
COM. REGION 



SET UP 
SEARCH 
ADDRESS 



CLEAR 

IPL 

SWITCH 



••*C3»*«***»« 

GET OBR 

RECORD 

CODE AND 

ISOLATE OBR 

KEY 



CHECK FOR 
CPU-ID 
RECORD 



OBRCON X 












OBRREAD 


JM 


* 


READ FIRST 


»-«» 




JR 






RECC 


3RD 
< 












Fl *. 










YES 


.* END 






OF 






». FILE 










X 








• NO 




*JN « 






» B3« 


. 
















UNRERR 


X 
Gl***«. 






.» ANY 


• . YES 




.OBR RECORDING.*.... 




». DOh 


JE 


» 



YES .• 


OBR 


• 


...«. 


KEY 






EQ 






• . .« 




X 








•NO 










A4 • 




* 










k m * 


















OBRKY1 


X 




••^•E3 < 




OBRREAD 


J 








READ OBR 






RECORD 





RMS 




«. 


YES 


IN 








SYSTEM 


» 


* 












• NO 








* 








X 
















E4 • . 


, 






OBR 








KEY EQ 








1 


# 


•* 












• NO 








*X.. 









PRCNTFLL 

•PRCNTCMP JN» 

•COMPUTE*PERCENT» 
♦ OF RECORDER • 
« FILE FULL * 



INDICATE 
IPL 

TIME 



*F2««»»« 
IDCHK 



• IPL 

OR EOD 
». RECORD 



• SET FILE 

♦ READY SWITCH 

* IN SDR 

• COM. REGION 



END 
OF 
FILE 



OBR 

KEY EQ 

1 



SET THIS 

DISK ADDR 
AS CURRENT 
OBR RECORD 



UPDATE 
HEADER 
RECORD 



SET THIS 

DISK ADDR 

AS CURRENT 

OBR RECORD 



CHECK CPU 

ID 
■ RECORD 



RMS 

IN 

SYSTEM 



GET ADDR 

OF BG 

COMREG 

EXT 



•*»«»H4»*«*«****« 


•*»«»H5 *••«•♦••«• 


•UPDTHDR JK» 


• * 




• GET ADDR » 


• UPDATE ♦ 


• OF RAS » 


• HEADER • 


• LINKAGE « 


• RECORD • 


• AREA • 



SET FILE 

READY 

SET OBR KEY 

TO 1 
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Chart JG. $JOBCTLM - Check Recorder File (Part 4 of 4) 
Refer to Chart 15. 



* B3* 
UNRERR 



RMS 

IN 

SYSTEM 



SET FIRST OBR 
RECORD DISK 
ADDRESS AS 

CURRENT 
OBR RECORD 



SET FIRST OBR 
RECORD DISK 
ADDRESS AS 

CURRENT 
OBR RECORD 



UPDATE 
HEADER 
RECORD 



UPDATE 
HEADER 
RECORD 



* HI* 
0BR0D0N 
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Chart JH. $JOBCTLM - ROD Statement Processor 
Refer to Chart 15- 



RODCMP 

•«#»«A2*»* 
•PRCNTCMP 



COMPUTE 

PERCENT OF 

FILE FULL 



CHECK CPU 

ID 

RECORD 



END 

OF PUB 

TABLE 



UPDATE TO 

NEXT SDR 

QUEUE 

ENTRY 



INDICATE 

ROD 

TIME 



POINT TO 

DESIRED 

MESSAGE 

1I82A 



MOVE PIK 

TO SDR 

COM. REGION 



• D2 
THE SUBROUTINES, ERRRTN AND 

OERRTN ARE BRANCHED TO BY 
A BAL INSTRUCTION. HOWEVER, 
CONTROL NEVER LINKS BACK 
TO THE ROD STATEMENT PROCESSOR. 



INDICATE 
SYSLOG IS 
ASSIGNED 



NO .* SYSLOG * 

...•ON 1050, 3210, 

*. 3215 .» 



INDICATE 

LOG CONSOLE 

PRINTER 

• KEYBOARD * 



.« EXTERNAL *. YES 
.COUNTER OVER-.*... 
». FLOWED .» 



*F2 
USING THE MASK X'OCS SET 
BITS 4 AND 5 OF THE SDR 
QUEUE BYTE TO 1. 



CLEAR 

FLAG FOR 

WRITE 



SCHEDULE SDR2 

AND SDR3 

*F2 




E4 «. 

.» COM ». 

REGION 
EXTENSION 
. AVAIL. . 



.» SDR • 
. COM. REGION 
». AVAIL. .« 



SYSREC 
ON 2314 
OR 2319 



SET UP 
CONSTANTS FOR 

2314 RF 
PERCENT FULL 



.X. 
X 

E4 



* GET ADDRESS 

* OF PIB 

* TABLE 



FETCH 
OVERLAP 
SUPPORT 



FILE 
READY FOR 
.RECORDING. 



POINT TO 

MESSAGE 

ISOOD 



GET SDR QUEUE 

AND SDR TABLE 

ADDRESSES 

• K2 



»K2 
SDROPT-BYTE 36 IN THE 

SDR COMMUNICATIONS 

REGION. 
SDRPT1-BYTE 32 IN THE 

SDR COMMUNICATIONS 

REGION. 



X 
• ••# 

A3 » 



ATTACH 

QUIESCE 

PIB 



* A* » 
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Chart JJ. $JOBCTLM - Miscellaneous Subroutines (Part 1 of 2) 
Refer to Chart 15. 



#A4«**»«« 
OPENSET 



SET OBR DISK ADDRESSES 


•«#»#B 4* »#*•»**»# 


IN SDR COMMUNICATION 


* INDICATE • 


REGION. 


» SYSTEM FILE * 




* OPEN - X'40' * 




« IN JBCSWO * 




* * 



»##*»ci**«*»**»»» 

*■ CLEAR « 

* I/O • 

• AREA » 


###*»C2***»»«**** 

* PLACE DISK * 
» ADDRESS AT • 

• FIRST OBR * 

* RECORD IN * 

• OBRONE • 



X 

*«*»#C4»»*»****** 
•MTNCNT BK* 


OPENRCO 

•**»«C5********** 

» OPEN THE * 


• THE * 

* SYSTEM * 


» FILE ♦ 



#»*»#D1****«»**»» 


•##•#02********** 


» SET * 


• PLACE DISK » 


* SECURITY * 


» ADDR OF • 


• BYTE * 


• CURRENT OBR * 


# *K1 » 


• RECORD IN » 


«•«**»«••#«•»«««* 


♦ OBRCUR » 



SEIZE 

THE 

SYSTEM 



SET OBR 

RECORD COUNT 

IN RECCNT 



SET DATA 

LENGTH IN 

DATLEN 



••*E3»**»**« 

SET SECOND 
RECORD TO 
FIRST AND 

CURRENT 
OBR ADDR 



C0MSET1 

•»###F2 »•#•*#** 

* PLACE DISK 

* ADDR OF 
» LAST OBR 

* RECORD IN 

* OBRLST *J1 



#**»*G1***»****** 

* SET LAST * 

* RECORD * 

* NUMBER IN * 
» LAST SDR * 


••*##G2*»**»»»**« 

* DECREMENT * 

* OBRCNT BY 1 * 

* TO ALLOW » 
« . FOR • 

* FILE MARK » 









• 


RESET 

OPEN 

INDICATOR 


• 










X 




•»#»»F4»»»*»«*» 
» GET UPPER 
» AND LOWER 
» LIMIT 
* EXTENTS 


#X.. 


YES 


F5 «. 

SUCCESSFUL 
#. OPEN 

"*N0 


• ** 










X 

G4* *». 

.*'* 2311 
». OR 
•. 2314 


• 






X 

«JN » 
* J2* 

# « 

OPNERR 





»»«»H1******** 

• RETURN TO 

* CALLING SEQ 



•»«H2»**»**»* 

RETURN TO 

CALLING SEQ 



INITIALIZE 
CONSTANTS 
FOR 2311 



INITIALIZE 
CONSTANTS 
FOR 2314 



*K1 
OBR RECORDS ARE 
FORMATTED WITH ZEROS 
AND A SECURITY BYTE 
X«FF». 
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Chart JK. $JOBCTLM - Miscellaneous Subroutines (Part 2 of 2) 
Refer to Chart 15. 



#»A1*»#*** 
SDRUPDT 



GET CURRENT 

TRACK 

ADDRESS 



B3 

IF SDR IS SPECIFIED, 
THE RECORD COUNT IS 
IN SDRNBR. 


B4****. 

.** SDR **. 

♦. SPECIFIED . 
*. *B3 .* 


NO 


UPDTOBR 

*»*«*B5 •»» 

• SET UP * 






» ADDRESS » 



END *. 

OF 
.CYLINDER .• 



SET TRACK 



UPDATE 

TRACK 

NUMBER 



SET UP 

DISK 
ADDRESS 



UPDATE 

OBR »E5 

HEADER 

RECORD 



»*»D2*»»»*« 
UPDATE 

DISK 

ADDRESS 

-DISKAD+5- 



UPDATE 

SDR HEADER 

RECORD 

*E5 



UPDATE 

CYLINDER 

NUMBER 



UPDATE 

DISK 

ADDRESS 

-DISKAD+3- 



UPDATE 

##»»E4* 
WRITE 



WRITE UPDATED 
HEADER * 
RECORD 



•E5 
ALL INFORMATION FOR 
UPDATED HEADER RECORD 
COMES FROM THE FIRST 
32 BYTES OF THE SDR 
COMMUNICATION REGION. 



*#«»*G2«**»**»* 
» COMPARE 

* CURRENT DISK 
» ADDRESS WITH 

* ADDRESS OF 
•FIRST OBR REC. 



CONDITION CODE IS SET. 



*»«H2*«*«»«** 

RETURN TO 

CALLING SEQ 
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Chart JL. $JOBCTLM - I/O Subroutines (Part 1 of 2) 
Refer to Chart 15. 



#«A1***»#*«*« 
WRITE 



RELEASE 

THE 
SYSTEM 



X 
*«C1«**»*« 

WRITE 

ON 

RECORDER 

FILE 



••«»*B3******** 
» GET DISK 
• ADDRESS 
» OF LAST 
» RECORD 


»« 

• 
# 


UPR1 
... .X* 




X 

C3* *». 

.*" MAXIMUM 
». RECORD 


* 


. NO 


UP-DATE 
PROPER 


«. COUNT 




X * 


ADDRESS 
*C5 



CONTENTS OF WRKRG3, 
EITHER RECORD, HEAD 
OR CYLINDER COUNT. 



»*»##D1*»»»* 
•MTNCNT 

* ~ "seize" 

* THE 

* SYSTEM 



ADD 1 TO 
TRACK 
COUNT 



.UNRECOVERABLE. 

I/O 

». ERROR .» 



«**«F1«*««*»* 

RETURN TO 
CALLING SEQ. 



RESET 

RECORD COUNT 

TO 1 



DECREASE 
TRACK 
COUNT 



MAXIMUM 
TRACK 
COUNT 



RESET 

TRACK COUNT 

TO 



STORE 

NEW DISK 

ADDRESS 

-DISK4D- 
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Chart JM- $JOBCTLM - I/O Subroutines (Part 2 of 2) 
Refer to Chart 15. 



* OBRREAD 



»*AA«**»*»*« 
SORREAD 



••#*»B1*»*»*»»*»« 


B2 «. 


* SET UP « 




* PROPER * 


.♦ END 


* DISK * 


*. OF 


• ADDRESS » 


♦.CYLINDER - 


* « 





•**»C2********* 

UPDATE 

CYLINDER NO. 

AND SEARCH 

ADDRESS 



READ 

OBR 

RECORD 



*»D2******* 

RESET 

TRACK AND 

RECORD 

COUNTS 



SEIZE 

THE 

SYSTEM 



END 

OF 

FILE 



RELEASE 

THE 
SYSTEM 



READ 

SDR 

RECORD 



SEIZE 

THE 
SYSTEM 



*»»E4»****»*« 

RETURN TO 

CALLING SEQ 



*F3 
IF END OF FILE, RETURN 
IS TO THE ADDRESS IN 
LINKR3. RETURN TO 
LINKR3+4 FOR PROCESSING 
AND CHECKING NEXT RECORD. 



.UNRECOVERABLE. YES 
». I/O .»..X 
». ERROR .# 



••••G2******** 
» RETURN TO 

• CALLING SEQ 

• #F3 



Charts 187 



Chart JN. $JOBCTLM - RMS and Error Subroutines 
Refer to Chart 15. 



CONV DISK 
ADDR TO 
HEX FOR 
MESSAGE 



»«C1«»*#«« 

POINT TO 

DESIRED 

MESSAGE 

1I85A 

*E1 



CONV DISK 
ADDR TO 
HEX FOR 
MESSAGE 



#»C2*****» 

POINT TO 

DESIRED 

MESSAGE 

1I87A 

•El 



CONV DISK 
ADDR TO 
HEX FOR 
MESSAGE 



•*C3**ft*»« 

POINT TO 

DESIRED 

MESSAGE 

1I86A 

*E1 



CONV DISK 
ADDR TO 
HEX FOR 
MESSAGE 



«C4 
JD-Gi,HliA5 
JF-C1.F1 
JG-B2,B<t 
JM-G1.H1.J1 



.X.X. 
X 

»BL « 



#*OA*«»**» 
PRCNTCMP 



.MESSAGE 


. DESCRIPTION 


•1I83A 


. RECORDER FILE TOO SMALL 


.1I84A 


. RECORDER FILE OPEN FAILURE 


.1I85A 


. CONFLICTING DEVICE TYPES FOR CUU 


-1I86A 


. ERROR ON RECORDER FILE AT CCHHR 


.1I87A 


. SDR AREA FULL CUU 


.11931 


. RECORDER FILE XXX FULL (RUN EREP) 



COMPUTE 

PERCENT OF 

RECORDER 

FILE USED 



**J1##«#*« 

POINT TO 

DESIRED 

MESSAGE 

1I83A 

*E1 





. «JJ- 


-FS 




JA- 


-HI 


fcR 


X 




»*»«*J2**»»»«»*»* 




POINT TO 






DESIRED 






MESSAGE 




* 


1I84A 




* 


*E1 


* 



»»»»*H4»*«»«**«»* 
» ADD «RUN * 

• EREP' TO * 
» MESSAGE * 

* 1I93I » 
•STORE. NEW COUNT* 



PRINT 

MESSAGE 

1I93I 

♦ El 



#K3»*«* 
SVC 7 
WAIT 



»K5«»*«* 
RETURN 
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Chart JP. $JOBCTLM - Miscellaneous Subroutines (Part 1 of 
Refer to Chart 15. 



2) 



»*»A1»**»* 
IDRTN 



.« . 


IPLEODYS 


A3 ». 


«*A4**«*» 






• IPL, *. YES 


« INDICATE 


EOD RECORDING.*.... 


...X* IPL/EOD 




• RECORD 



SEIZE 

THE 

SYSTEM 



».*E1* 

MOVE IN 
NEW PSW, 
NEW PROG 
CHECK AND 
STORE THEM 



RESTORE 

SYSTEM PROG 

CHECK NEW 

PSW 



*»»G1******* 

CLEAR PROG 

CHECK OLD 

PSW AND 

ALLOW 

INTERRUPTS 



RELEASE 

THE 
SYSTEM 



MOVE 

MODEL NBR 

IN REC 



*»«B<+******* 

PUT SYSTEM 

DATE AND 

TIME IN 

COMREG 

EXT 



RESET 

IPL 
TIME 



««#E3*****»** 

WRITE 

CPU-ID 

RECORD 

ON RECORDER 

FILE 



,»»F3» ******* 

UPDATE 

ADDRESS OF 

NEXT RECORD 

ON RECORDER 

FILE 



••••G3«******** 

UPDATE OBRCUR 

TO POINT TO 

NEXT RECORD 

ON RECORDER 

FILE 



PUT HIGH 

CORE 

ADDRESS 

IN RECORD 



BLANK 

RESPONSE 

FIELD 



SYSLOG ». YES 
1050, 3210,.*.... 
. OR 3215 .* 



WRITE • 1I90D 
IPL REASON 
CODE= ' 



***»H3**«** 
* RETURN 



YFS 


.» 


ANY 


*. 






RESPONSE 








*. 










»N0 










X 






**H4****** 
















SET 








DEFAULT 








CODE 'DF« 






* 


IN MSG. 


« 






. . . . X 


.X 



IPLLOOP .*. 


.»N0 


J4 ». 


J5 *. 






.* LIST «. NO 


.* RESPONSE 


*. FINISHED .* 


...X*. MATCH LIST 




*. ITEM 










• YES 


♦ YES 




X 








«JQ * 


IPLNVLD X 


« B2* 






WRITE 




* 1I89I * 




INVALID 




* CODE' * 




MSG 
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Chart JQ. $JOBCTLM - Miscellaneous Subroutines (Part 2 of 2) 
Refer to Chart 15. 



BLANK 

RESPONSE 

FIELD 



explanation 
"normal 



IE REQUIRING MAINTENANCE. 
"OPERATIONAL" PROBLEM * 



.* LOG ♦ . 

♦ASSIGNED TO*. NO 
1052, 3210, .♦... 
». OR 3215 .♦ 



POINT TO 

MESSAGE 

1I92D 



MOVE IN 
DEFAULT 

INTO 
MESSAGE 



WRITE 
•1I92D END 
OF DAY = • 



Fl • 
YES .♦* E0D= 



» E3» 


. 










RECORD 


X 








Gl 






.* EOD 



WRITE • 1I89I 

INVALID CODE' 

MESSAGE 



##*»B2***»*** 
PUT REASON 

CODE IN 

RECORD AND 

SET UP FOR 

SUB-SYSTEM I 



BLANK 

RESPONSE 

FIELD 



D2 *. 

.♦SYSLOG *. 
•ASSIGNED TO*. NO 

1050, 3210, .♦... 
♦ . OR 3215 .♦ 



WRITE • II91D 

SUB-SYSTEM 

ID = ' 

♦ E4 



CE 



ENVIRONMENTAL 
*ce/se* control* NIG* SYSTEM* 



♦YES . UP . USER PROGRAM 

* **ME****MED*A 

* **un*** "unknown 



SET 

DEFAULT 
TO '00' 



SUB-SYSTEM ID CODES 



#G2*«^ 
RETURN 



WRITE • 11891 
INVALID 

CODE' 
MESSAGE 



.♦ RESPONSE 

♦. MATCH LIST 

♦. ITEM 



SET UP 

SUB-SYSTEM 

ID 



.CODE 
1*66** 



explanation 
'unknownTor'default' 



10 
"20* 



hard core 
"dasd 



30 . DISK 
*46"**TAPE* 



50 
"70* 



CARD PRINTER 
*TP 



80 . GRAPHIC 

"96" *! "type "i*6r* type" ii* program" 

*9*"*X* IBM* PROGRAMMING* PRODUCT*** 
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Chart KA. $JOBCTLN - Job Accounting Interface (Part 1 of 2) 
Refer to Chart 16. 



****A1********* 


****A2******><** 


****A3*^**^*** 








* EXEC * 


* SIM^'XJ * 


♦ EOJ ♦ 








* *J1 * 


* ** l * 


* *K3 ♦ 








* * 


* * 


* * 








*************** 


***** *********** 


*************** 




**** 

* * 

* B4 * 

* * 


**** 

* * 

* B5 * 

* * 




SIMEOJ X 


EOJ X 




**** 

X 
.♦. 


**** 

........... .xl 


EXEC X 


NOTFG X 


**Bi******* 


**B2******* 


**Q3******* 




B4- *. 


**B5******* 


* SET * 


* * 


♦ SET * 




.♦ ♦. 


* * 


* RETURN * 


* SET RETURN * 


♦ RETURN ♦ 




♦ IS ♦. NO 


♦ POST ♦ 


* BRANCH * 


* BRANCH FOR * 


* BRANCH FOR ♦ 


*. 


THIS A .*... 


♦ USER IN ♦ 


* FOR EXEC * 


* SIMULATED * 


♦ NORMAL ♦ 




♦. FOREGRD .♦ 


♦ CONTROL ♦ 


* CD * 


* EOJ * 


* EOJ ♦ 




♦. JOB .♦ 


* * 


*********** 


*********** 


*********** 




♦ . .* 


*********** 


*x 


...Ix. ......... 


'. 




♦ YES 
X 












GO X 


X 


X 

.*. 


*****C1 ********** 




*****C3«* ******** 


*****C4********** 


C5 ♦. 


* STORE JOB * 




* * 


* 


GET PIB ♦ 


.* *. 


* CONTROL REGS * 




♦ POINT TO ♦ 


* 


ADDRESS ♦ 


.♦ LABEL ♦. NO 


* ESTABLISH * 




♦ FIRST ♦ 


* 


AND ♦ 


♦. AREA ...... 


* TABLE * 




* WAIT ♦ 


* 


PARTITION ♦ 


♦. SUPPORT .♦ 


* BASE * 




♦ BLOCK ♦ 


* 


PIB ♦ 


♦ . .♦ 


***************** 




***************** 


***************** 


♦ . .♦ 


X 




X 






♦ YES 


.♦. 




.♦. 




X 


X * 


Dl *. 


**D2******* 


D3 ♦. 


*****Q4********** 


**D5******* 


.* *. 


* * 


.♦ ♦. 


* 


* 


* * 


.* LAST *. YES 


* TURN * 


.♦ IS ♦. NO 


* 


GET * 


♦ ACTIVATE ♦ 


*. USER EXIT ...... 


....X* OFF * 


♦. IT IN .♦... 


♦ 


PARTITION ♦ 


♦ OPEN/CLOSE ♦ 


*. NORMAL .* 


* CATALOG * 


♦. USE .♦ 


♦ 


SAVE ♦ 


♦ LABEL AREA ♦ 


*. .* 


* SWITCH * 


♦ . .♦ 


♦ 


AREA ♦ 


♦ CAPTURE ♦ 


*. .* 


*********** 


. *. .* 


***************** 


*********** 


*N0 


**** I 

* * . 

* E2 ♦ ... 

* * . 
**** X 


♦ YES 






Ix. • . . . .....! 






USERROR X 


TEST .*. 


X 




X 


X 


**Ei******* 


E2 *. 


*****E3** ******** 


*****E4********** 


*****E5********** 


* TURN OFF * 


.* *. 


* * 


* 


* 


♦MTNCNT BK^ 


* ACCOUNTING * 


.* IS *. YES 


♦ POINT TO ♦ 


* 


POST ♦ 


*_*_*_*_*_*-*_*_* 


* SUPPORT SW * 


*. ANOTHER .♦... 


* SECOND ♦ 


* 


•JOB ACCT' * 


♦ RELEASE ♦ 


* IN * 


♦.SJOBACCT .* 


♦ WAIT ♦ 


* 


IN SAVE ♦ 


♦ THE ♦ 


* COMREG * 


♦RUNNING* 


* BLOCK ♦ 


* 


AREA * 


♦ SYSTEM ♦ 


*********** 


♦ . .♦ 


***************** 


***************** 


***************** 




♦ NO 


*x.. 




X 

**** 
* * 










X 


CALLSEOJ X 


X 




* B5 ♦ 


X 


**F1******* 


*****P2********** 


*****P3 ********** 




* * 


*****P5 ********** 


* POST * 


♦ CALCULATE ♦ 


* * 




**** 


* * 


* CANCEL * 


♦ FINAL CPU ♦ 


♦ PUT ♦ 






♦ STORE ♦ 


* ACCOUNTING * 


♦ TIME ♦ 


♦ PARTITION ♦ 






♦ BASE ♦ 


* TO OTHER * 


♦ MOVE CTRS ♦ 


♦ ID IN ♦ 






♦ REGISTERS ♦ 


♦PARTITIONS * 


♦ TO USER TABLE ♦ 


* WAIT BLOCK * 






* * 


*********** 


***************** 


***************** 






***************** 



**G1******* 

* * 
DE- 
ACTIVATE 

LABEL 

♦ SWITCH ♦ 
*********** 



X 
***** 
♦KB ♦ 
♦ Bl* 



♦ Jl 
ENTRY FROM 
SJOBCTLA 
CHART BC. 



*****G2*********« 

* * 

* RESET ♦ 

* TIME ♦ 

* COUNTERS ♦ 

* * 
***************** 



*****H2********** 

♦ * 

♦ SAVE JOB ♦ 

♦ NAME ♦ 

♦ FROM ♦ 

♦ COMREG ♦ 
***************** 



*****J2********** 

♦ POST ♦ 

♦ 'JOB ACCT' ♦ 

♦ AS NEW ♦ 

♦ JOB NAME ♦ 

♦ IN COMREG ♦ 
***************** 



*****G3********** 
♦MTNCNT BK^ 
*_*-*_*_*_*_*_*_* 

♦ RELEASE ♦ 

♦ THE * 

♦ SYSTEM ♦ 
***************** 



.♦ IS OTHER 
USER 
♦.FINISHED 



****j 3** ******* 

* SVC 7 ♦ 

* WAIT ♦ 

* * 
*************** 



*****H4********** 

♦MTNCNT BK+ 

*•*_*-*-*-*_*_*_* 

X+ SEIZE ♦ 

* THE * 

♦ SYSTEM ♦ 
***************** 



*****j4********** 

♦ * 

♦ CLEAR * 

♦ WAIT ♦ 

♦ BLOCK ♦ 

♦ * 
***************** 



*****G5********** 

♦ INITIALIZE ♦ 

♦ USER ♦ 

♦ REGISTERS ♦ 

♦ * 
***************** 



****H5********* 

♦ EXIT TO ♦ 

♦ $JOBACCT ♦ 

♦ *J5 ♦ 
*************** 



♦ J5 
EXIT TO 
USERS JOB 
ACCOUNTING 
PROGRAM 



♦ Kl 
ENTRY FROM SJOBCTLG* 
JOB STATEMENT PROCESSOR 
AT SIMULATED EOJ, 
CHARTS EA-EB. 



♦ K3 
ENTRY FROM ft 
STATEMENT PROCESSOR 
AT NORMAL AND 
ABNORMAL EOJt 
CHARTS EC-EE. 
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Chart KB. $JOBCTLN - Job Accounting Interface (Part 2 of 
Refer to Chart 16. 



2) 



RESTORE 

BASE 

REGISTERS 



GET PIB 

ADDRESS AND 

PARTITION 

PIB 



SWBACK .*. 






CI *. 




»»C2»*««*** 


.» 1ST «. 






.» SEIZE *. YES 




• POST 


«. BLOCK .« 


..X* PARTITION 


«. IN .* 




• COMPLETE 


». USE .» 












• NO 






Ix 




• 


X 






CHEKNEXT .*. 






Dl *. 




««D2»«*»»*» 








.» 2ND ». YES 




• POST 


». SEIZE .» 


..X 


» PARTITION 


•.BLOCK IN .« 




• COMPLETE 


». USE .* 




• 








• NO 






Jx 






CONTINUE X 












• TURN • 






« OFF • 






• $JOBCTLN • 






• ACTIVE * 






• SWITCH • 







TURN OFF 
USER IN 
CHARGE 
SWITCH 



GET 

PARTITION 

SAVE 

AREA 



CLEAR 

FIRST SIO 

ENTRY 



» 


RETURN 


♦ 


» 


RESTORE 


• 




USER'S JOB 






JOB NAME 






NAME TO 






TO 






COMREG 






SAVE AREA 














*»»»•»»»»**»♦* 




X 




N0TFG1 




< 






E3 ». 










.♦ IS •. 




•MTNCNT 


BK« 




• THIS 


*. NO 










A FOREGRD 






RESEIZE 






• . JOB 






THE 






«. 


.» 




• 


SYS 


fEM 


• 



J, 


CLEAR 

TIME 

COUNTERS 


• 




X 
E5* *•. 

*' SIO '*. NO 

SUPPORTED .*.. 



« 


ACTIVATE 


« 










LABEL 










• 


SWITCH 


* 








* 




* 










X 










EXBKSWCH .». 




EJBKSWCH 






Gl ». 








;2 • 














. • 


WAS 


• . NO 




> • 


WAS 




ENTRY 
FROM 




. . ..X» 


'•• 


ENTRY 


• 


• 




FROM 




•.EXEC .♦ 






• 


. EOJ 



»»G3«»«»«» 
CONTROL 
SJOBCTLA 



MOVE CPU 

TIME USED 

BY USER 



REINITIALIZE 

JOB 

ACCOUNTING 

TABLE 



ft 




CLEAR 




• 






SIO 










TABLE 










X 

G5**'*. 










SIO 


* 


. NO 






TABLE 








• 


CLEAR 


* 





POINT DUMMY 

VECTOR TO 

EXEC PROCESS 

IN SJOBCTLG 



««J1»*»*»« 
•FETCHRF' 
SJOBCTLA 



WAS 

ENTRY 

FROM 

•SIMEOJ. 



POINT DUMMY 
VECTOR TO 
•ACCTSIMR* 
IN $JOBCTLG 



GET 

LENGTH OF 

SIO 

TABLE 



SET 

TABLE 

DELIMITER 



»»K2*»»«»* 
•FETCHRF* 

SJOBCTLA 
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Chart LA. $$BLSTIO - Initialization 
Refer to Chart 07. 



*A1**»* 
PUIF 



LOAD BASE REG 

WRKRG3 WITH 

CURRENT PUB 

ADDR FROM 

TPUBADD 



UNPACK AND 

TRANSLATE 

CHANNEL AND 

UNIT TO BCD 

IN WRKRG1 



**»»D1*»**»**» 

MOVE CHANNEL 

AND UNIT TO 

TCHNL AND 

TUNIT 



.•DEVICE •. 
•UNASSIGNED 

OR 
«. IGNORE . 



UNPACK 

MODE OF 

DEVICE IN 

WRKFLD1 



•••*«C2*»***«»*» 

• UNPACK MODE 
•OF JOB CONTROL 

• FLAGS IN PUB 

• IN WRKFLD1 



RESET 
WRKRGL TO 
ORIGINAL 

MODE 



MULTIPLY 

PTR BY 5 

TO DEVELOP 

TABLE 

DISPLACEMENT 



HI *. 

• MODE • 

BYTE IN 

PUB EQ 





MOVE 

DEVICE TYPE 

TO DVCHK 



Kl ♦. 

DEVICE 

A 

DASD 



• F2 
POINT1 CONTAINS VALUE 
CALCULATED IN RTN 
FNDARG FROM LOGICAL 
TRANSIENT KEY AND THE 
OPERAND. POINT1 VALUE 
MAY BE NEGATIVE. 



•••G2**»*»*»* 

LOAD WRKRG3 
WITH KEY OF 
UNIT CLASS 
FROM POINT1 
• F2 



*«*«*D3* 

♦ TRANSLATE 
•MODE TO EBCDIC 

• AND MOVE TO 
» TMODE FIELD 



••E3*»*»**« 

CLEAR 

OWNERSHIP 

FIELD 

-TOWN- 



•ADD SYST. UNIT 

• TABLE ADDR TO 

• DISPLACEMENT 

• FOR LOG UNIT 

• ADDR IN TABLE 



MOVE LOGICAL 

UNIT TO 

TLUNIT + 3 

-SYSXXX- 



• COMPUTE PUB « 

• OWNER ID • 

• -BG,F2,F1- • 
•AND MOVE TO LOC« 

• TOWN «K3 • 



♦ •A5 

$$BLSTIO 



INITIALIZE 

TRANSIENT SW 

BANKT TO OFF 

STATUS 

-HEX 00- 



•«»*C5*«»*****» 

GET 

COMMUNICATION 

REGION ADDR 

FROM LOC 

HEX 16 



»»»*»D5**«*****» 

• GET PIB TABLE 

• ADDR FROM 

• COMMUNICATION 
•REGION PLUS 90 



• GET ADDR OF 

• LOGICAL TRANS 
•BUCKET, L.T.B., 
•FROM PIB TABLE 

• PLUS 72 «J5 



••*»*F5***»***** 

• RESTORE REG 
•9-14 FROM SAVE 

• AREA PLUS 16 

• *K5 



*G4 

THE SWITCH, TPROGSW, IS 
ON IF A SINGLE 
ASSIGNMENT IS BEING 
PROCESSED. A SINGLE 
ASSIGNMENT OR 
ARGUMENT IS SPECIFIED 
BY THE OPERAND SYSXXX. 



*#G5»»«***» 

RESTORE 

REGISTERS 

0-8 

FROM SAVE 

PLUS 44 



H2 •. 




»»«#«H3**»»***» 






• MOVE ARGUMENT 


SYSTEM •• 


YES 


• XXX TO 


UNIT 




• TLUNIT + 3 


.« 


. 


• -SYSXXX- 



»*«J2»»»»»««* 
CONVERT LOG 
WITH NO. TO 

EBCDIC IN 
TLUNIT + 3 
-SYSXXX FF- 



»J4 

RETURN TO THE ROUTINE THAT 
FETCHED $$BLSTIO BY 
BRANCHING ON REG LINKR2. 
LINKR2 WAS LOADED WITH THE 
RETURN ADDRESS BY THE 
FETCHING ROUTINE. IT WAS 
SAVED BY THE SUPERVISOR. 
IT WAS RESTORED BY THIS 
ROUTINE. 



*J5 
L.T.B. CONTAINS THE 
ADDRESS OF SAVE AREA 
WHERE REGISTERS HAVE 
BEEN SAVED BY THE 
SUPERVISOR. 



»»*K3*»***«»» 

return to 
calling 5eq 



• K5 
REGISTER 15 IS THE 
BASE REGISTER FOR 
THIS TRANSIENT. IT 
IS NOT RESTORED BY 
THIS ROUTINE. 



• NO 
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Chart LB. $$BLSTIO - Operand Identification Subroutine 
Refer to Chart 07 . 



*A1«*»** 
FNDARG 



INITIALIZE 

REGISTERS 

*A2 



*A2 

1. P0INT1 EQUALS THE EXIT 
ADDRESS EXIT OR ALLXT. 

2. WRKRG4 EQUALS 0. IT IS 
USED AS A DISPLACEMENT 
INDEX VALUE TO SELECT 
THE CORRECT BRANCH 
INSTRUCTION IN THE 
BRANCH TO WHICH LINKR1 
IS THE POINTER. 

3. WRKRG2 EQUALS 1. IT 
INDICATES THE SECTIONS 
OF THE LUB TABLE It 2, 

4. WRKRG3 EQUALS 0. IT 
INDICATES A KEY VALUE 
POINTER TO THE LOGICAL 
UNIT CLASS. 



FNDARG5 

*»#»#B3»***»»* 
» SET RETURN 

♦ CODE 

» WRKRG4 EQ 

* TO 4 



FNDARG1 
NO .*" 



IS 

OPERAND 

ALL 



SET WRKRG3 

TO 1 

-KEY FOR 

PROG OPER.- 



»»*C3»»»**»* 

SET RETURN 

CODE 

WRKRG4 EQ 

TO 8 



SET LUB 
COUNT = 2 
-WRKRG2- 



SET RETURN 

CODE 

WRKRG4 EQ 

TO 12 



IS 

OPERAND 

CUU 



***#»F1*««*«««*«* 

• SET LUB COUNT # 

* IN WRKRG2 TO • 
•2 AND SET EXIT * 

# ADDR. IN * 
*P0INT1 TO ALLXT* 



CLEAR CLASS 

KEY 

-WRKRG3- 









X 












#»».*E3« »»»***, 




E4 ». 




* SET RETURN 








♦ CODE 




NO .« IS 




* WRKRG4 EQ 


*X... 


». OPERAND 




* TO 16 




». DOWN 


#»#» 


* 


* 


«. . 


• F2 * 


*** 




*• •* 










***» 


; 






X 






X 










F2 ♦. 


#.**#F3««***«*« 




F4 ». 




« SET RETURN 






MULTI- •. 


* CODE TO 20 




NO .« IS 


PROGRAMMING .« 


» ASSUM SYSXXX 
» OPERAND AND 










». UA 


**«. .«** 


» SET LUBCNT=1 


»# 


*. .* 



SET LUB CNT 

WRKRG2 EQ 

TO 6 



KEY3 

***»*G3******* 
» INCREMENT 

* CLASS KEY 

* WRKRG3 

* BY 2 



• NO 


«. 






. . . .x! 


X 

H2***». 

IS 

OPERAND 

F2 


YESl 


KEY2 


X 

*»H3**»*»«*»»* 

INCREMENT » 

CLASS KEY * 

WRKRG3 ♦ 

BY 1 * 



«#J3«#*«««. 

INCREMENT 

CLASS KEY 

WRKRG3 



*G4 

1. EXIT FROM THIS 
ROUTINE IS TO THE 
BRANCH TABLE IN THE 
CALLING SEQUENCE. 
LINKRG1 PLUS THE 
DISPLACEMENT IN 
WRKRG4 SELECTS THE 
CORRECT BRANCH 
INSTRUCTION TO 
TRANSFER CONTROL 

TO THE CORRECT 
PROCESSING ROUTINE. 

2. P0INT1 CONTAINS 
LOGICAL UNIT CLASS 
POINTER. 

3. WRKRG2 CONTAINS 
THE LUB COUNT 
If 2, OR 6. 



*.*»G5*»»«««»* 
REDUCE CLASS 

KEY,WRKR3, 

BY PARTITION 

NO. VALUE 

*K5 



#»*»#H5*«*»****»* 

• LOAD CLASS * 
•INTO REG P0INT1* 

• FOR RETURN. * 

• -VALUE MAY BE ♦ 

• NEGATIVE- * 



*»*J5*»»»**« 

RETURN TO 

LINKR1+ 

WRKRG4 »G4 



*K5 X 

.BG F2 Fl. 

LOGICAL 

TRAN. KEY. 10.20.30. 

part! *N0* I " * I* * I **I 
VALUE .00.02.04. 
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Chart LC. $$BLSTIO - Build Print Line Subroutine 
Refer to Chart 07. 



•Al«»»» 
SULB 



»A4«*»»« 
SEUOB 



LOAD WRKRG3 
WITH ADDRESS 
OF I/O BUFFER 



•»**#B4********* 

• INIT REGISTERS 

• WRKRG3 EQ 

» BUFFER ADDR 
» WRKRG4 EQ 

• PUB ADDR 



»»«C1»**»»*»« 

MOVE TLUNIT 

TO LUNIT IN 

BUFFER+1 

-SYSXXX- 

»JL 



CLEAR I/O 

BUFFER TO 

BLANKS 



MOVE TCMNT 

TO LCMNT IN 

BUFFER+12 



#»»*D4**»»*»*« 

MOVE CHANNEL 

TO BUFFER 

FROM 

TCHNL. 

1-BYTE 



X 
•»*F1»* 

MOVE *»UA 
TO LCHNL . 
BUFFER+20 

• Jl 



IN 



IS 

LUB 

IGN 



»»«»F2******** 

MOVE «*IGN»* 

TO LCHNL IN 

BUFFER+20 



SULB2 

•••*«E3******** 

• MOVE TCHNL 

* TO LCHNL IN 
...X* BUFFER+20 



* MOVE UNIT 
•TO BUFFER FROM 
» TUNIT. 



•Jl 



MOVE TUNIT 

TO LPUNIT IN 

BUFFER+26 



***G3*******« 

MOVE TMODE 

TO LMODE IN 

BUFFER+33 



IS 

DEVICE 

DOWN 



» MOVE -DOWN- • 
•TO THE I/O UNIT» 
•FIELD IN BUFFER* 



2 ) 








*«#G4« ►•»« 






BUILD 






REMAINDER 


OF 




PRINT LINE 


IN 




BUFFER 






• J4 




• 




X * 



•*H3*»*««»* 
RETURN TO 

CALLING 
SEQUENCE 



•Jl 

LUNIT LCMNT LCHNL 

-SYSXXX XXX ••-UA-** 

♦•-IGN-** 



LPUNIT LMODE 



MOVE OWNER TO OWNER FIELD 

MOVE MODE FROM TMODE TO MODE FIELD 

MOVE LOGICAL UNIT FROM TLUNIT TO THE 

I/O UNIT FIELD 

MOVE THE COMMENT FROM TCMNT TO THE 

COMMENT FIELD-MODE LESS 6 BYTES 
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Chart LD. $$BLSTIO - Build Header Subroutine 
Refer to Chart 07. 



*A1*»*»» 
PSHRTN 



»#A3«**«« 
LHRTN 



BG F2 Fl 
IlCK20!30 



MOVE CHANNEL 

AND UNIT 

HEADING TO 

OUTPUT BUFFER 



»«»»»B3********** 
♦COMPUTE LOGICAL* 

* UNIT CLASS IN * 
♦WRKR4, RELATIVE* 

* TO THIS * 
•PARTITION »A5» 



••»*«C3*«***»»*»* 

» LOAD « 
« WRKRG4 WITH * 

* DISPLACEMENT .* 

♦ TO CORRECT • 
•HEADER »D5« 



PARTITION VALUE 
NUMBER + CLASS 
KEY, P0INT1 (FROM 
FNDARG ROUTINE) X2 
= DISPLACEMENT 
INTO HEADING 
INDEX TABLE. 



BG = HEX 74 
F2 = HEX 9C 
Fl = HEX AD 



* MOVE OWNER • 
•FLAG HEADING TO« 

• OUTPUT BUFFER • 




• LOAD WRKRG4 * 

• WITH ADDRESS * 

• OF CORRECT * 
•HEADER «E5* 



MOVE HEADER 

TO OUTPUT 

BUFFER 



• E5 
HEADER ADDRESS 
EQUALS INDEX 
DISPLACEMENT 
(WRKRG4) + 
CONTENTS REG 15. 
REG 15 = BASE 
REG OF $SBLST10 
TRANSIENT. 



•MOVE I/O UNIT, ♦ 

• MODE AND » 
•COMMENT HEADING* 

• TO BUFFER • 



«»*H3**»»»*»» 

RETURN TO 

CALLING SEQ 
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APPENDIX A: LABEL LIST 



INITIAL PROGRAM LOAD ($$A$IPL1, $$A$IPL2, 
$IPLRT2, $IPLRT3, AND $IPLRT4) 

CHARTS AA-AZE 



Chart 



Label 


Phase 


ABNCHK 


$IPLRT2 


ABNEND 


$IPLRT2 


ADCLOP 


$$A$IPL2 


ADREST 


$IPLRT4 


ADDRTN 


$IPLRT3 


ALCERR 


$IPLRT2 


ALCRTN 


$IPLRT2 


ALCRT1 


$IPLRT2 


ALCRT2 


$IPLRT2 


ALCRT3 


$IPLRT2 


ALTCHANQ 


$$A$IPL2 




$IPLRT4 


ASNEND 


$IPLRT4 


ASNLP1 


$IPLRT4 


ASNLP2 


$IPLRT4 


ASNRTN 


$IPLRTU 


ASNSTP 


$IPLRT4 


BCHEST 


$$A$IPL2 




$IPLRT3 


BEGIN 


$IPLRT2 


BEGIPL 


$$A$IPL2 


BLDPUB 


$$A$IPL2 




$IPLRT3 


BSTOFF 


$IPLRT3 


BSTOK 


$IPLRT3 


CALLBCHR 


$IPLRT2 


CCW1 


$$A$IPL1 


CCW2 


$$A$IPL1 


CCW3 


$$A$IPL1 


CCW4 


$$A$IPL1 


CCW5 


$$A$IPL1 


CDSCH 


$IPLRT2 


CHCLOP 


$$A$IPL2 




$IPLRT3 


CHCNT 


$$A$IPL2 




$IPLRT3 


CHEXT 


$IPLRT3 


CHFIN 


$$A$IPL2 




$IPLRT3 


CHGADR 


$$A$IPL2 


CHKCOM 


$IPLRT4 


CHKLP 


$IPLRT3 


CHSLOP 


$IPLRT3 


CHSRT 


$$A$IPL2 


CHULOP 


$$A$IPL2 




$IPLRT3 


CHUPD 


$IPLRT3 


CHURTN 


$$A$IPL2 




$IPLRT3 


CILRNO 


$$A$IPL2 


CLDLP1 


$$A$IPL2 




$IPLRT4 


CLDLP2 


$$A$IPL2 




$IPLRT4 


CLDRTN 


$IPLRT4 



AQ 

AQ 

AC 

AZB 

AR 

AM 

AL 

AL 

AM 

AM 

AG 

AZA 

AZD 

AZD 

AZD 

AZD 

AZD 

AF 

AU 

AJ 

AB 

AF 

AU 

AV 

AV 

AY 

AA 

AA 

AA 

AA 

AA 

AK 

AF 

AU 

AF 

AU 

AW 

AF 

AU 

AC 

AX 

AW 

AW 

AF 

AH 

AW 

AW 

AH 

AW 

AC 

AG 

AZA 

AG 

AZA 

AZA 



CLEAR 


$$A$IPL2 


AB 


CLEARCOR 


$$A$IPL2 


AB 


COMMA 


$IPLRT2 


* 


COMCHK 


$IPLRT4 


AZA 


COMDOK 


$IPLRT4 


AX 


COMLOP 


$IPLRT4 


AZA 


COMNFD 


$IPLRT4 


AX 


COMRGN 


$IPLRT2 


* 


Communications region 


DSECT origin. 


CONTIN 


$$A$IPL2 


AB 


CPBFEND 


$IPLRT4 


AZA 


CPYSLB 


$IPLRT4 


AZC 


CPYSRT 


$IPLRT4 


AZC 


CTTLUB 


$IPLRT4 


AY 


CYLDP 


$IPLRT4 


AY 


DATERT 


$IPLRT4 


AZB 


DBLADD 


$IPLRT3 


AR 


DBLSCN 


$IPLRT3 


AR 


DDLUB 


$IPLRT2 


AP 


DECLP 


$IPLRT2 


AP 


DECRL 


$$A$IPL2 


AG 




$IPLRT2 


AN 


DECRR 


$$A$IPL2 


AG 




$IPLRT2 


AN 


DECRTN 


$IPLRT2 


AP 


DELEXT 


$IPLRT3 


AT 


DELIM 


$IPLRT2 


* • 


Translate table for field delimiter 


DELLOP 


$IPLRT3 


AT 


DELRTN 


$IPLRT3 


AT 


DSDP1 


$IPLRT4 


AZ 


DSDP2 


$IPLRT4 


AZ 


DSDP3 


$IPLRT4 


AZ 


DSDP4 


$IPLRT4 


AZ 


DSDRET 


$IPLRT4 


AZ 


DSDRTN 


$IPLRT4 


AZ 


DSKADR 


$$A$IPL2 


AH 


DVCLST 


$IPLRT2 


* 


Device 


type table used 


to add PUB f< 


a specified device. 




ENADR 


$IPLRT3 


AS 


ENDRD 


$$A$IPL2 


AD 


ENFND 


$$A$IPL2 


AF 




$IPLRT3 


AU 


ER1121 


$IPLRT4 


AZ 


ERR 


$$A$IPL2 


AB 


ERRHLT 


$$A$IPL2 


AB 


EXIT1 


$$A$IPL2 


AH 


EXTRTN 


$$A$IPL2 


AD 



Label of the address that the program 
returns to if SYSRDR is assigned and 
the operator indicates he has add 
and/or delete cards in SYSRDR. The 
return is via an external interrupt. 



♦Listing Only. 
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FDSRTN 


$IPLRT2 


AP 


FNDTYP 


$IPLRT3 


AV 


FOUND 


$$A$IPL2 


AC 


FPRTN 


$IPLRTU 


AZE 


GETADD 


$IPLRT2 


AL 


GETDEL 


$IPLRT2 


AL 


GETDEL1 


$IPLRT2 


AL 


GETNICL 


$IPLRT4 


AZD 


GETSET 


$IPLRT2 


AM 


GET3 


$IPLRT2 


AL 


GET4 


$IPLRT2 


AL 


GO 


$$A$IPL2 


AD 


HALT 


$$A$IPL2 


AB 


HARDMC 


$$A$IPL2 


AB 


HEXRTN 


$IPLRT3 


AW 


IJBIPLAD 


$IPLRT3 


AR 


IJBIP210 


$$A$IPL2 


AB 


ILLCD 


. $IPLRT2 


AQ 


IOFLD 


$$A$IPL2 


* 




$IPLRT2 


* 


Origin 


of high core 


i I/O tables 


IOHALT 


$IPLRT2 


AQ 


IOHLD 


$IPLRT2 


AQ 


IOHL2 


$IPLRT2 


AQ 


IOSTOP 


$IPLRT2 


AQ 


IPLEND 


$IPLRT4 


AY 


ITSADWD 


$$A$IPL2 


AC 


KEYCHK 


$IPLRT3 


AS 


KEYCHK1 


$IPLRT3 


AS 


KEYCHK2 


$IPLRT3 


AR 


LASTRD 


$$A$IPL2 


AC 


LBLOC 


$$A$IPL2 


AC 


LBLPED 


$IPLRT2 


AP 


LOAD3NOW 


$IPLRT2 


AL 


LOGRED 


$IPLRT2 


AK 


LOGSTR 


$IPLRT2 


AK 


LOGWRK 


$$A$IPL2 


AE 


LOKCLD 


$$A$IPL2 


AB 


LOOKLUB 


$IPLRT4 


AY 


LOOKUP 


$$A$IPL2 


AB 


LOWCRE 


$IPLRT2 


* 


Origin 


of low core 


map DSECT. 


LUBHLP 


$IPLRT2 


AE 




$IPLRT4 


AY 


LUBLOP 


$$A$IPL2 


AE 


LUBLPL 


$IPLRT2 


AP 


LUBMVC 


$$A$IPL2 


AE 


LUBRTN 


$$A$IPL2 


AE 


LUBSET 


$$A$IPL2 


AD 


LUDRTN 


$IPLRT2 


AP 


LUUEND 


$$A$IPL2 


AH 


LUUPLP 


$$A$IPL2 


AH 


LUURTN 


$$A$IPL2 


AH 




$IPLRT2 


AP 


MAXKEY 


$$A$IPL2 


* 




$IPLRT3 


* 


MCR 


$IPLRT3 


AV 


MLUUR 


$IPLRT2 


AP 


MODEOK 


$IPLRT2 


AJ 


MONITOR 


$IPLRT2 


AJ 


MPXCHK 


$IPLRT4 


AZE 


MPXGO 


$IPLRT4 


AZE 


MPXHLT 


$IPLRT4 


AZE 


MPXHL1 


$IPLRT4 


AZE 


MPXHL2 


$IPLRT4 


AZE 


MPXLOP 


$IPLRT4 


AZE 



MPXMOV 


$IPLRT4 


MPXRTN 


$IPLRT4 


MSGRTN 


$IPLRT2 


MVCEND 


$$A$IPL2 


NEXTSYS 


$IPLRT4 


NLPYR 


$IPLRT4 


NODASD 


$IPLRT2 


NOMTEB 


$IPLRT4 


NOMVP 


$$A$IPL2 


NONBLK 


$IPLRT2 


Translate table for 


NOSOAD 


$IPLRT3 


NOSODL 


$IPLRT3 


NOSOROOM 


$IPLRT3 


NOTBG 


$IPLRT4 


NOTEB 


$IPLRT2 


NOTFOR4 


$IPLRT2 


NOTMPS 


$$A$IPL2 


NOT4AND3 


$IPLRT2 


NOT4NOW 


$IPLRT2 


N03211 


$IPLRTU 


NUMCVT 


$IPLRT3 


OFFINT 


$IPLRT4 


ONINT 


$IPLRT4 


OPNEND 


$IPLRT4 


OPNLOP 


$IPLRT4 


OPNRTN 


$IPLRT4 


OPNUSN 


$IPLRT4 


OPRTN 


$IPLRT2 


ORGEST 


$$A$IPL2 


PBFEND 


$IPLRT4 


PBFFIN 


$IPLRT4 


PBFLOP 


$IPLRT4 


PBFRTN 


$IPLRT4 


PIBTAB 


$IPLRT2 


Origin 


of PIB table 


POINTLUB 


$IPLRT4 


PPBEGOK 


$$A$IPL2 


PPBEGOR 


$IPLRT2 


PSWGO 


$$A$IPL2 


PSWSET 


$$A$IPL2 


PUBCLC 


$IPLRT2 


PUBDEQ 


$IPLRT3 


PUBEXD 


$IPLRT3 


PUBMKE 


$$A$IPL2 




$IPLRT3 


PUBMK1 


$IPLRT3 


RACDVC 


$IPLRT3 


RASPCRET 


$IPLRT2 


RASUPR 


$IPLRT2 


RDBLOK 


$$A$IPL2 


RDDIR2 


$$A$IPL2 


RDRIPT 


$$A$IPL2 


RDRTST 


$IPLRTU 


READER 


$$A$IPL2 


READGO 


$IPLRT2 


READRT 


$IPLRT2 


RECNO 


$$A$IPL2 


REREAD 


$IPLRT2 


RESIDL 


$$A$IPL2 




$IPLRT2 


RESIDR 


$$A$IPL2 



AZE 

AZE 

AQ 

AC 

AZ 

AZB 

AJ 

AY 

AF 

* 



AU 

AT 

AU 

AZD 

AJ 

AJ 

AE 

AM 

AL 

AZ 

AS 

AY 

AY 

AZ 

AZ 

AZ 

AZ 

AK 

AE 

AZA 

AX 

AZA 

AZA 



DSECT, 



AY 
AD 
AJ 
AD 
AD 
AJ 
AT 
AR 
AE 
AS 
AS 
AV 
A J 
AJ 
AC 
AB 
AD 
AX 
AB 
AJ 
AK 
AH 
AK 
AG 
AN 
AG 
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AN 
AX 
AE 
AG 
AN 
AB 
AB 
AZE 
AP 
AC 
AF 
AU 
AV 
AF 
AU 
AF 
AU 
AF 
AU 
AT 
AT 
AC 
AM 
AW 
AD 
AD 
AD 
AX 
AZD 
AZB 
AR 
AE 
AF 
AU 
AZ 
AM 
AJ 
AB 

This switch is initially off (NOP) . 
It is used after the transient 
directory has been searched and the 
supervisor nucleus has been found to 
branch around the instructions used in 
searching for the supervisor nucleus. 

SW1 $$A$IPL2 AC 

N0P/BR switch that is turned on (BR) 
for reading the last block of the 
supervisor into main storage. 

SW2 $$A$IPL2 AC 

NOP/BR switch that is turned on (BR) 
when first block of the supervisor is 
read. 

SW3 $$A$IPL2 AB 

This switch is initially off (NOP) . 
It is used after the transient 
directory address and SYS RES device 
type has been determined to branch 
around these instructions. 





$IPLRT2 


RESNFD 


$IPLRT4 


RESWRK 


$$A$IPL2 


RIGHT 


$$A$IPL2 




$IPLRT2 


RMSMCRET 


$$A$IPL2 


RMSPCRET 


$$A$IPL2 


RSTCHQ 


$IPLRT4 


RSTLUB 


$IPLRT2 


RTRAK 


$$A$IPL2 


SCHCNT 


$$A$IPL2 




$IPLRT3 


SCHLOP 


$IPLRT3 


SCHSCH 


$$A$IPL2 




$IPLRT3 


SCHSTA 


$$A$IPL2 




$IPLRT3 


SCHTST 


$$A$IPL2 




$IPLRT3 


SCNEND 


$IPLRT3 


SCNLOP 


$IPLRT3 


SETBLK 


$$A$IPL2 


SETFIRST 


$IPLRT2 


SETFCL 


$IPLRT3 


SETKEY 


$$A$IPL2 


SETL0G 


$$A$IPL2 


SETPROT 


$$A$IPL2 


SETRTN 


$IPLRT4 


SET2 


$IPLRT4 


SKPINC 


$IPLRT4 


SKPKEY 


$IPLRT3 


SKPMVT 


$$A$IPL2 


SPRSW 


$$A$IPL2 




$IPLRT3 


SRCH32H 


$IPLRT4 


SSKL0P 


$IPLRT2 


ST0RECPU 


$IPLRT2 


SW 


$$A$IPL2 



TEBDET 


$IPLRT3 


AV 


TEBEST 


$IPLRT3 


AV 


TEBEXD 


$IPLRT3 


AV 


TEBLOP 


$IPLRT3 


AT 


TEBVCHK1 


$IPLRT3 


AT 


TEBVCNT 


$IPLRT2 


AJ 


TEBVDEQ 


$IPLRT3 


AT 


TEBVDET 


$IPLRT3 


AV 


TEBVDT 


$IPLRT3 


AV 


TEBVEST 


$IPLRT3 


AV 


TIMERT 


$IPLRT4 


AZB 


TMCHK 


$IPLRT4 


AX 


TPDVC 


$IPLRT3 


AV 


TRKN0 


$$A$IPL2 


AH 


TRTBRC 


$IPLRT2 


AQ 


TRTTAB 


$IPLRT2 


* 


Control 


card translate 


table. 


TSTSO 


$IPLRT3 


AU 


UPDAT 


$$A$IPL2 


AC 


UPLUB 


$IPLRT2 


AP 


USEWRK 


$$A$IPL2 


AE 


USNRES 


$IPLRT4 


AX 


WAIT 


$$A$IPL2 


AD 


YESL0G1 


$IPLRT4 


AY 


YLPYR 


$IPLRT4 


AZB 



JOB CONTROL ($JOBCTLA, $JOBCTLD, $JOBCTLF, 
SJQBCTLG, $JOBCTLJ, $JOBCTLK, $J0BCTLM, 
$JOBCTLN y AND $$BLSTIO) CHARTS BA-LD 



SW4 


$$A$IPL2 


AB 


SYSMVC 


$$A$IPL2 


AG 




$IPLRT2 


AN 


TAPE 


$IPLRT3 


AV 


TEBCLC 


$IPLRT2 


AJ 


TEBDEQ 


$IPLRT3 


AT 



Label 

ABGF1F2 
ACCTBR1 

ACCTBR2 
ACCTBR3 
ACCTBR4 
ACCTBR5 
ACCTBR6 
ACCTCL 

ACCTIGN 

ACCTIGN1 

ACCTIGN2 

ACCTIGN3 

ACCTIGNU 

ACCTIGN5 

ACCTIGN6 

ACCTIGN7 

ACCTIGN 8 

ACCTLV1 

ACCTLV1B 

ACCTNOTP 

ACCTSIMR 



Phase 

$JOBCTLD 
$JOBCTLA 
$JOBCTLG 
$JOBCTLG 
$JOBCTLG 
$JOBCTLG 
$JOBCTLG 
$JOBCTLJ 
$JOBCTLA 
$JOBCTLJ 
$JOBCTLF 
$JOBCTLJ 
$JOBCTLA 
$JOBCTLG 
$JOBCTLA 
$JOBCTLG 
$JOBCTLA 
$JOBCTLG 
$JOBCTLA 
$JOBCTLG 
$JOBCTLG 
$JOBCTLG 
$JOBCTLJ 
$JOBCTLG 
$JOBCTLA 
$JOBCTLJ 
$JOBCTLA 
$JOBCTLG 



Chart 

CG 
BB 
EB 
EB 
EB 
EB 
EA 
GM 
BB 
GM 
DL 
GH 
BC 
EF 
BC 
ED 
BA 
EB 
BB 
EB 
EB 
EB 
GM 
EC 
BB 
GM 
BC 
EA 
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ACCTSWO 




$JOBCTLA 


BC 


ACCTUPDT 




$JOBCTLF 


DL 






$JOBCTLJ 


GM 


ACTION 




$JOBCTLJ 


GD 


ACTRSP 




$JOBCTLA 


BB 


ADDLNGTH 




$JOBCTLG 


EH 


ADDSDR 




$JOBCTLM 


JE 


ADR 




$JOBCTLA 


BN 






$JOBCTLD 


CM 






$JOBCTLF 


DP 






$JOBCTLG 


EK 


ALLXT 




$$BLSTIO 


KB 


ALLOC 




$JOBCTLJ 


GP 


ALTASW 




$JOBCTLD 


* 


Bank 1, 


bit 1: if 


on, speci: 


assignment. 




• 


Set 


ON: ASSGN 


statement 




processor. 





Set OFF: 



INITL subroutine. 



Controls processing in the ASSGN 
processor. 



ASSGN 


$JOBCTLD 


CA 


ASSGNB3 


$JOBCTLD 


CC 


ASSGNB4 


$JOBCTLD 


CD 


ASSGNB5 


$JOBCTLD 


CE 


ASSGNB6 


$JOBCTLD 


CF 


ASSGNB6A 


$ JOBCTLD 


CE 


ASSGNB6B 


$JOBCTLD 


CE 


ASSGNB6C 


$JOBCTLD 


CE 


ASSGNB6D 


$JOBCTLD 


CE 


ASSGNB6E 


$JOBCTLD 


CE 


ASSGNB7 


$JOBCTLD 


CJ 


ASSGNB8 


$JOBCTLD 


CH 


ASSGNIT 


$JOBCTLD 


CG 


ASSGNNT 


$JOBCTLD 


CA 


ASSGNP 


$JOBCTLD 


CP 


Subroutine: Checks assi^ 


jnme] 


SYSRLB 


and SYSSLB. 




ASSGNPi 


$JOBCTLD 


CP 


ASSGNR 


$JOBCTLD 


CA 


ASSGNTS 


$JOBCTLD 


CA 


ASSGNV1 


$JOBCTLD 


CA 


ASSGNO 


$JOBCTLD 


CA 


ASSGN1 


$JOBCTLD 


CA 


ASSGN1A 


$JOBCTLD 


CA 


ASSGN10 


$ JOBCTLD 


CB 


ASSGN101 


$JOBCTLD 


CB 


ASSGN11 


$JOBCTLD 


CB 


ASSGN12 


$JOBCTLD 


CB 


ASSGN13 


$ JOBCTLD 


CC 


ASSGN14 


$JOBCTLD 


CD 


ASSGN15 


$JOBCTLD 


CD 


ASSGN16 


$JOBCTLD 


CD 


ASSGNIT 


$JOBCTLD 


CD 


ASSGN18 


$JOBCTLD 


CD 


ASSGN19 


$JOBCTLD 


CD 


ASSGN19A 


$ JOBCTLD 


CD 


ASSGN2 


$JOBCTLD 


CA 


ASSGN20 


$JOBCTLD 


CD 


ASSGN21 


$ JOBCTLD 


CE 


ASSGN22 


$ JOBCTLD 


CG 


ASSGN23 


$ JOBCTLD 


CF 


ASSGN23A 


$JOBCTLD 


CF 



ASSGN23B 




$JOBCTLD 


CF 




ASSGN23C 




$JOBCTLD 


CF 




ASSGN23D 




$JOBCTLD 


CF 




ASSGN24 




$JOBCTLD 


CF 




ASSGN25 




$JOBCTLD 


CF 




ASSGN26 




$JOBCTLD 


CG 




ASSGN27 




$JOBCTLD 


CG 




ASSGN28 




$JOBCTLD 


CG 




ASSGN29 




$JOBCTLD 


CJ 




ASSGN3 




$JOBCTLD 


CA 




ASSGN30 




$JOBCTLD 


CJ 




ASSGN31 




$JOBCTLD 


CJ 




ASSGN32 




$JOBCTLD 


CJ 




ASSGN33 




$JOBCTLD 


CJ 




ASSGN34 




$JOBCTLD 


CH 




ASSGN35 




$JOBCTLD 


CH 




ASSGN36 




$JOBCTLD 


CH 




ASSGN37 




$JOBCTLD 


CH 




ASSGN3 8 




$JOBCTLD 


CJ 




ASSGN4 




$JOBCTLD 


CA 




ASSGN40 




$JOBCTLD 


CK 




ASSGN4 02 




$JOBCTLD 


CD 




ASSGN403 




$JOBCTLD 


CD 




ASSGN404 




$JOBCTLD 


CD 




ASSGN41 




$JOBCTLD 


CK 




ASSGN42 




$JOBCTLD 


CK 




ASSGN43 




$JOBCTLD 


CK 




ASSGN5 




$JOBCTLD 


CA 




ASSGN5A 




$JOBCTLD 


CA 




ASSGN6 




$JOBCTLD 


CB 




ASSGN7 




$JOBCTLD 


CB 




ASSGN8 




$JOBCTLD 


CB 




ASSGN 9 




$JOBCTLD 


CB 




ASSGN901 




$JOBCTLD 


CH 




ATNCUU 




$JOBCTLA 


BL 




ATNCUU1 




$JOBCTLA 


BL 




BACK 




$JOBCTLN 


KB 




BANK1 




$JOBCTLD 


* 




2-byte 


switch bank. 


Reset to zeros 


in 


the 


INITL subroutine. 






Byte 


0, 


, bit see CLOSESW 






1 


see ALTASW 








2 


see STDFDSW 








3 


see RETSW 








4 


see EOLSW 








5 


see PROGSW 








6 


see LIOSW 








7 


see RESETSW 







Byte 1, bit see DDSW 

1 see TRANSW 

2 not used 

3 not used 

4 not used 

5 see UNSW 

6 see TMPSW 

7 see MODSW 

BEGADDR $JOBCTLG EG 

BINCON $JOBCTLJ GT 

Subroutine: Converts DATE and CLOCK 
parameters of the SET statement to 
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binary in registers POINTl, P0INT2, 
and POINT 3. 

BLKCNT $JOBCTLJ GT 

BLNKLD $JOBCTLF DQ 

BRSS $JOBCTLJ GQ 

BTLOOP $JOBCTLA BC 

$JOBCTLG EL 

BTOFRT $JOBCTLJ GK 

BTONRT $JOBCTLJ GK 

BUFFER $JOBCTLA * 

through 
$JOBCTLM 
120-byte I/O area that allows control 
statements to be read into the main 
storage area previously occupied by 
the job control initialization 
routine, JOBCTL. 

BYPASS $ JOBCTL J GD 

CALL$EOJ $JOBCTLN KA 

CALLTTR $JOBCTLM JA 

CANCEL $JOBCTLG EE 

CATAL $JOBCTLG EN 

$ JOBCTL J GN 

CHAIN $JOBCTLA BE 

CHECK $JOBCTLM JD 

CHECKNEXT $JOBCTLN KB 

CHECKRF $JOBCTLG EB 

CHGSTT $JOBCTLJ GT 

Subroutine: Changes system status 

from problem program state to 

supervisor state and from supervisor 
state to problem program state. Used 
by the ALLOC statement processor. 

CHKASG $JOBCTLA BK 

Root phase subroutine to check the 
assignment of a logical unit. If the 
specified unit is unassigned, the 
condition code 1 is set and control is 
returned to the calling sequence. If 
the unit is assigned, the PUB pointer 
is supplied to the calling sequence in 
WRKRG3. 

CHKASG3 $JOBCTLA BK 

Equated to CHKASG+4. This is the 
entry into the CHKASG subroutine that 
is used when the LUB table address of 
the unit to be checked has already 
been loaded in WRKRG3. 

CHKCND $JOBCTLG EG 

CHKCNL $ JOBCTLA BM 

CHKCNT $ JOBCTLA BE 

Subroutine: Checks the area available 
for output records in the disk area 
allocated for SYSPCH or SYSLST. This 
subroutine is a part of $ JOBCTLA and 
is overlaid when any other phase of 
Job Control is loaded. 

CHKDIB $ JOBCTLA CE 

CHKJIB $JOBCTLA BD 

CHKLNK $JOBCTLG FB 

Subroutine: Checks SYSLNK assignment 

and device type. 



CHKLST $JOBCTLA BD 

CHKNXC $JOBCTLD CM 

$JOBCTLK HR 

CHKOPN $JOBCTLD CV 

Subroutine: Sets the open indicator 
off in the DFB if the CUU of the DFB 
does not equal the CUU of the 
assignment. 



CHKOPN1 

CHK0PN2 

CHKOVR 

CHKPGU 

CHKPRN 

CHKPUB 

CHKPUN 

CHKRNG 



$JOBCTLD 
$JOBCTLD 
$JOBCTLA 
$JOBCTLJ 
$JOBCTLG 
$JOBCTLF 
$JOBCTLK 
$JOBCTLD 
$JOBCTLG 



CV 
CV 
BJ 
GS 
GP 
DN 
HH 
CM 
HR 



Subroutine: Checks the range of each 
character in a parameter. 

Upon entry: 

• Register POINT1 contains the 
address of the first byte of the 
parameter . 

• Register POINT3 contains the 
number of characters to be checked 
minus 1. 

The compare immediate instruction, 
RNGTOP, is modified by the calling 
sequence to compare for the maximum 
character (numeric = 9, hex = F) . 



CHKRNG1 




$JOBCTLJ 


GQ 






$JOBCTLK 


HR 


CHKTIM 




$JOBCTLJ 


GH 


CHKTIM1 




$ JOBCTL J 


GH 


CIDEND 




$JOBCTLG 


EH 


CKCLAS 




$JOBCTLF 


DN 


CKNDAR 




$JOBCTLJ 


GR 


CKSCST 




$JOBCTLJ 


GP 


CLBLUB 




$JOBCTLA 


BK 






$JOBCTLF 


DN 


CLOSE 




$JOBCTLD 


CL 


CLOSED 




$JOBCTLD 


CL 


CLOSESW 




$JOBCTLD 


* 


BANKl, 


bit 0: If on 


specif i< 


close 


is in process. 




o 


Set ON: CLOSE statement 




processor. 





Set OFF: INITL subroutine and 
CLOSE1 subroutine. 

Controls processing in: 

1. CLOSE1 subroutine. 

2. ASSGN statement processor. 
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CL0SE1 $JOBCTLD CP 

CLOSE10 $ JOBCTLD CQ 

CLOSE11 $ JOBCTLD CQ 

CLOSE12 $ JOBCTLD CQ 

CLOSE2 $JOBCTLD CL 

CLOSE3 $JOBCTLD CL 

CLOSE7 $JOBCTLD CL 

CLOSE 8 $ JOBCTLD CQ 

CLOSE9 $JOBCTLD CQ 

CLRDN $JOBCTLF DN 

CLRDOA $JOBCTLG EH 

Portion of the EXEC statement 
processor used as a subroutine to 
clear the output area to blanks • 
Register POINT1 is reset to the 
beginning address of the area. 



CLRRTN 


$JOBCTLG 


EK 


CMNWLM 


$JOBCTLJ 


GP 


CMPSDR 


$JOBCTLM 


JC 


CMPSDR1 


$JOBCTLM 


JC 


CMPSDR2 


$JOBCTLM 


JC 


CMPSDR3 


$JOBCTLM 


JC 


CNIOAG 


$ JOBCTLD 


CY 


CNTROVFL 


$JOBCTLM 


JH 


CNUNCO 


$JOBCTLJ 


GS 



Subroutine: Converts the operand 
SYSXXX to system and unit class in the 
location UNCLOR. 



CNUNCOl $JOBCTLJ GS 

CNVBCD $JOBCTLF DQ 

Subroutine: Converts data to EBCDIC 

for output. 

COMPUBND $JOBCTLF DQ 

COMPUTF1 $JOBCTLG EC 

COMSET $JOBCTLM J J 

Subroutine: Calculates the first , 

current, and last OBR disk addresses 

and moves them to the SDR 

communication region. 



COMSET1 



$JOBCTLM 



JJ 



COMTBL $JOBCTLJ * 

Beginning of table of magnetic tape 
commands. 

CONCAT $JOBCTLK HM 

Subroutine: Combines the operand 
fields of two control statements, the 
first control statement contains a 
continuation punch. 



CONDSCK 


$JOBCTLD 


CJ 


CONTINUE 


$JOBCTLN 


KB 


CONT1 


$JOBCTLA 


BB 


CONTROL 


$JOBCTLA 


BB 


COPYLP 


$JOBCTLJ 


GD 


COPYSW 


$JOBCTLG 


EG 


CRJBSQ 


$JOBCTLG 


EA 


CRTBLD 


$JOBCTLJ 


GP 


CTIMR 


$JOBCTLG 


* 


A 4-b} 


rte area in par 


tition r< 



CTRLSW 




$JOBCTLA BD 


C48 




$JOBCTLG EM 


C60 




$JOBCTLG EM 


DATE 




$JOBCTLJ GH 


DCUXTN 




$JOBCTLA BD 


DDSW 




$JOBCTLD * 


BANK1+1, 


r bit : If on speci: 


in 


progress. 


• 


Set 


ON: DVCDN statement 




processor. 



Set OFF: 



INITL subroutine. 



• Controls exit from the RESET 
statement processor. 

DECK $JOBCTLG EM 

DETACH $JOBCTLF DL 

Entry into the UNBATCH statement 

processing routine. 



DETACH1 


$JOBCTLF 


DL 


DETACH2 


$JOBCTLF 


DL 


DETACH2A 


$JOBCTLF 


DL 


DETACH3 


$JOBCTLF 


DL 


DETCHR 


$JOBCTLF 


DL 


DEVERR 


$JOBCTLM 


JN 


DFB 


$JOBCTLA 
through 
$ JOBCTLM 


* 


Data 


file block (Figure 


6). 


DIBRC 


$JOBCTLJ 


GH 


DLAB 


$JOBCTLK 


HF 


DLBL 


$JOBCTLK 


HE 


DLBL1 


$JOBCTLK 


HE 


DLBOUT 


$JOBCTLK 


HF 


DNEERR 


$JOBCTLJ 


GU 


DOP34 


$JOBCTLK 


HM 



Subroutine: Converts creation date 
and expiration date to binary and 
stores in label output area. 

DOWN $JOBCTLF DE 

DQXTNT $JOBCTLG FC 

DSKIND $JOBCTLA BH 

DSKINT $JOBCTLA BD 

Subroutine to perform Job Control 
initialization for DASD. If 
SYSLST/SYSPCH are assigned to disk, 
the available record count is checked. 
All extent JIBs currently attached to 
programmer units are unassigned and 
placed on the free list. This 
subroutine is a part of $JOBCTLA and 
is overlaid when any other phase of 
Job Control is loaded. 



save area used to save job start time. 



DUMP 


$JOBCTLG 


EP 


DVCDN 


$JOBCTLF 


DH 


DVCDNC 


$JOBCTLF 


DJ 


DVCDNL 


$JOBCTLF 


DH 


DVCDNS 


$JOBCTLF 


DJ 


DVCDNX 


$JOBCTLF 


DJ 


DVCDN1 


$JOBCTLF 


DH 


DVCDN14 


$JOBCTLF 


DH 


DVCDN14A 


$JOBCTLF 


DH 
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DFB 


DS 


CL6 ~\ "^ 






DFBCBL 
DFBCBA 


DS 
DS 


CL2 Symbolic unit address I 

>CCB 
CL4 CCW address [ 






DFBCWA 
DFBCCU 


DS 
DS 
DS 


CL4 ) 

CL4 ASA CCW address 
CL2 Channel and unit 


> 


U/R 

TAPE 

DASD 


DFBDVC 


DS 


CL1 Device type 






DFBFLG 


DS 


CL1 Flag byte (see Note) 






DFBCCW 


DS 
DS 


CL8 CCW (Not_used for DASD)^ 






CL8 Seek 


™\ 






DS 


CL8 Search 








DS 


CL8 TIC 








DS 
DS 


CL8 Write (count, key, and data) 
(chained data) 

CL8 Write (data) 




k DASD 
Only 




DS 


CL8 Search 








DS 


CL8 TIC 








DS 


CL8 Verify (count field) (chained data) 




Note: 


DS 


CL8 Verify (data) 












DFBFLG 


- flag byte bit 0:1 = Open 

bit 1:1 = Unit Exception processing 

bit 2:1 = U/R device 

bit 3:1 = Overlap requested 

bit 4:1 = ASA is supported on this device 

bit 5: Not used 

bit 6:1 = Attention routine switch 

bit 7:1 = CCB has been initialized 



EOLSW $JOBCTLD * 

BANK1, bit 4: If on, specifies that 
the end of a class in the LUB table 
has been reached. 

• Set ON: SCANLUB subroutine. 

• Set OFF: INITL subroutine and 
SCANLUB subroutine. 

• Controls processing in: 

1. ASSGN statement processor. 

2. DVCDN statement processor. 

3. LISTIO statement processor. 



EQTEST 


$JOBCTLG 


EL 


EREXIT 


$JOBCTLJ 


GF 


EREXIT1 


$JOBCTLJ 


GF 


ERRAP 


$JOBCTLA 


BM 


ERRAP1 


$JOBCTLA 


BM 


ERRCNL 


$JOBCTLA 


BM 


ERRRTN 


$JOBCTLA 


BM 




$JOBCTLD 


CY 


ERRRTN1 


$JOBCTLD 


CY 


ERRRTN2 


$JOBCTLA 


BM 




$JOBCTLD 


CY 


ERRS 


$JOBCTLG 


FQ 


EXBKSWCH 


$JOBCTLN 


KB 


EXCCON 


$JOBCTLA 


BJ 


EXCECP 


$JOBCTLA 


BJ 


EXCEDT 


$JOBCTLG 


EF 


EXCEOF 


$JOBCTLA 


B J 


EXCP 


$JOBCTLD 


CX 


EXCPGO 


$JOBCTLA 


BJ 


EXCPRG 


$JOBCTLA 


BH 



Figure 6. 


DFB Format 




DVCDN14B 


$JOBCTLF 


DH 


DVCDN2 


$JOBCTLF 


DH 


DVCDN3 


$JOBCTLF 


DH 


DVCDN 4 


$JOBCTLF 


DH 


DVCDN5 


$JOBCTLF 


DH 


DVCDN6 


$JOBCTLF 


DJ 


DVCDN7 


$JOBCTLF 


DJ 


DVCDN8 


$JOBCTLF 


DJ 


DVCUP 


$JOBCTLF 


DK 


EDTEST 


$JOBCTLG 


EK 


EJBKSWCH 


$JOBCTLN 


KB 


ENDINC 


$JOBCTLJ 


GD 


EODRTRN 


$JOBCTLM 


JQ 


EODTIME 


$JOBCTLM 


JQ 


EOFKY0 


$JOBCTLM 


JG 


EOFKY1 


$JOBCTLM 


JG 


EOFPRC 


$JOBCTLA 


BJ 


EOJ 


$JOBCTLG 


EC 




$JOBCTLN 


KA 


EOJBY 


$JOBCTLG 


EB 


EOJNRF 


$JOBCTLG 


EC 


EOJOFF 


$JOBCTLG 


EB 


EOJ1 


$JOBCTLG 


EB 



Root phase subroutine to perform I/O 
on a specified logical unit. If the 
file has not been opened, this routine 
initializes its DFB including the CCB 
before executing the I/O. 

EXCPROG $JOBCTLD CX 

Subroutine: Performs I/O on tape when 
user tape density is to be used. 

• The symbolic unit address (class 
and order) is supplied in register 
POINT1. 

• The PUB address is supplied in 
register POINT2. 

EXCPROG1 $JOBCTLD CX 

Entry point to the EXCPROG subroutine 
when IBM standard tape density is to 
be used. 



EXCPROG2 
EXCPROG3 
EXCPROG4 
EXCPSVC 



$JOBCTLD 
$JOBCTLD 
$JOBCTLD 
$JOBCTLA 



CX 
CX 
CX 
BJ 
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EXCUSR 


$JOBCTLG 


EF 


EXEC 


$JOBCTLG 


EF 




$JOBCTLN 


KA 


EXECl 


$JOBCTLG 


EF 


EXECBACK 


$ JOBCTLN 


KB 


EXIT 


$$BLSTIO 


LB 


EXPEXT 


$JOBCTLA 


BJ 


EXTNT 


$JOBCTLK 


HJ 


EXTRLC 


$JOBCTLA 


BN 



FETINSRT $JOBCTLK HC 

Subroutine: Inserts numeric operands 
in output block for output to label 
cylinder on SYSRES . 



Root phase subroutine adds relocation 
factor to external symbols. 



EXTRTN $JOBCTLA BN 

FDDKCODE $JOBCTLK HF 

FDKDFAUL $JOBCTLJ * 

Default values for disk label vol. 

sequence through system code. 



FETINSRO 


$JOBCTLK 


HC 


FETINSR1 


$JOBCTLK 


HC 


FETINSR3 


$JOBCTLK 


HC 


FETINSR4 


$JOBCTLK 


HC 


FETINSR5 


$JOBCTLK 


HC 


FETK 


$JOBCTLK 


HK 


FETKNO 


$JOBCTLK 


HK 


FETKN01 


$JOBCTLK 


HK 


FETKTK 


$JOBCTLK 


HL 



FDKIJ 


$JOBCTLK 


HE 


FDKIJ1 


$JOBCTLK 


HE 


FDKIJ2 


$JOBCTLK 


HE 


FDKTDAT 


$JOBCTLK 


HD 


FDKTDAT1 


$JOBCTLK 


HD 


FDKTDAT2 


$JOBCTLK 


HD 


FDKTID 


$JOBCTLK 


HD 



Subroutine: Processes FILE ID and 
DATE operands in DLBL and TLBL 
statements. 

FDKTV $JOBCTLK HC 

Subroutine: Initialization for DLBL, 
TLBL, and VOL statement processing 
routines. 

FDKTVNM $JOBCTLK HC 

Subroutine: Processes FILENAME 
operand . 



Subroutine: Processes START TRACK and 
NUMBER of TRACKS operand in EXTENT 
statement. 

FETKTK1 $JOBCTLK HL 

FETKTK2 $JOBCTLK HL 

FETYPE $JOBCTLK HJ 

FETYPED $JOBCTLK HJ 

FETYPEI $JOBCTLK HK 

FETYPEI4 $JOBCTLK HK 

FETYPEI $JOBCTLK HJ 

FEVSER $JOBCTLK HJ 

FEVSER1 $JOBCTLK HJ 

FEVSER2 $JOBCTLK HJ 

FEVSER3 $JOBCTLK HJ 

FEVSER4 $JOBCTLK HJ 

FICLS $JOBCTLA * 

through 
$JOBCTLM 
A 6-byte field that contains first in 
class lists for background, foreground 
2 f and foreground 1 system and 
programmer units, translated from 
4 -byte FICL in supervisor. (Figure 7) 



FDKTV1 


$JOBCTLK 


HC 


FDKTV2 


$JOBCTLK 


HC 


FDK1 


$JOBCTLK 


HE 


FDK2 


$JOBCTLK 


HE 


FDSYSU 


$JOBCTLJ 


GS 


FEBIN 


$JOBCTLK 


HB 


FEBIN1 


$JOBCTLK 


HB 





BG 


F2 


F1 


FICLS 


SS 


PP 


SS 


PP 


SS 


PP 


NICLS 


SS 


PP 


SS 


PP 


SS 


PP 



Subroutine: Processes bin numbers 
operand in EXTENT statement. 

FESEQ $JOBCTLK HL 

Subroutine: Processes EXTENT SEQUENCE 
operand. 



Where: SS = System Class 

PP = Programmer Class 



Figure 7. Format for NICLS and FICLS 



FESEQCK 


$JOBCTLK 


HK 


FESPLIT 


$JOBCTLK 


HK 


FESPLIT1 


$JOBCTLK 


HK 


FESPLIT2 


$JOBCTLK 


HK 


FESPLIT3 


$JOBCTLK 


HK 


FESPLIT4 


$JOBCTLK 


HK 


FESYSX3 


$JOBCTLK 


HJ 


FESYX2 


$JOBCTLK 


HJ 


FETCHN 


$JOBCTLG 


EB 


FETCHR 


$JOBCTLG 


EK 


FETCHRF 


$JOBCTLA 


BC 



FICNIC 


$JOBCTLA 


BA 


FINISH 


$JOBCTLN 


KB 


FINIS2 


$JOBCTLG 


EK 


FINOPN 


$JOBCTLA 


BH 


FLOC 


$JOBCTLD 


* 



Label of a 2-byte location that holds 
the address of the first LUB of a 
class. Loaded by the GETLAN 
subroutine. 

FNDARG $$BLSTIO LB 

Subroutine: Used by the LISTIO 
statement processor to determine the 
operand of the LISTIO statement. 
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FNDARG1 
FNDARG 5 



$$BLSTIO 
$$BLSTIO 



LB 
LB 
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FNIOAG $JOBCTLD CY 

FSCAN $JOBCTLK HB 

Subroutine: Scans operands of label 
statements and sets condition code for 
operand omitted, operand length equal 
to 1, or operand length equal to 
greater than 1. 

FSCAN1 $J0BCTLK HB 

FTEND $J0BCTLK HB 

FTEND1 $J0BCTLK HB 

FTKTBL $J0BCTLG * 

Beginning of label cylinder track 

allocation table. 

FULERR $JOBCTLM JN 

FXDFAUL $J0BCTLJ * 

Beginning of standard default table 
for volume serial through logical 
unit. 

FXDFAUL1 $JOBCTLJ * 

Beginning of current default table 
built by DLBL statement processing 
routine to be used when processing 
EXTENT statement. 

GETDUR $JOBCTLG FA 

Subroutines: Computes job duration 
and converts to EBCDIC. 

GETIME $J0BCTLG FA 

Subroutine: Computes time of day and 
converts it to EBCDIC. 



IGNORE 


$J0BCTLA 


BG 


ILUS 


$J0BCTLD 


CY 


INAERR 


$JOBCTLJ 


GU 


INCLUDE 


$J0BCTLJ 


GD 


INDSEQ 


$JOBCTLK 


HG 


INDVTP 


$J0BCTLD 


CY 


INDWR 


$J0BCTLA 


BG 


INITL 


$J0BCTLD 


CM 




$J0BCTLF 


DP 




$JOBCTLG 


EK 


INNXEN 


$JOBCTLJ 


GP 


INSW 


$JOBCTLD 


CK 


INVASGN 


$JOBCTLD 


CJ 


I0R0UT 


$J0BCTLG 


FC 


Subroutine : Performs 


I/O and waits 



for traffic bit to be posted. 



I0R0UTW $J0BCTLG FC 

Subroutine: Waits for previous I/O 
operation to complete. 



IPLE0DYS 


$JOBCTLM 


JP 


IPLL00P 


$J0BCTLM 


JP 


IPLNVLD 


$J0BCTLM 


JP 


IPLRTRN 


$J0BCTLM 


JP 


ISCKSQ 


$JOBCTLK 


HG 


ISSUIO 


$JOBCTLA 


BJ 


ISTYP4 


$JOBCTLK 


HG 


IVDS 


$JOBCTLD 


CY 


IVSERR 


$JOBCTLJ 


GU 


JBCSWO 


$JOBCTLA 


* 



GET JIB 


$JOBCTLD 


CR 


GETJIBSW 


$JOBCTLD 


CR 


GETJIB1 


$JOBCTLD 


CR 


GETJIB2 


$JOBCTLD 


CR 


GETLAN 


$JOBCTLD 


CM 



Subroutine: Determines number of 
logical units in a class and address 
of first LUB of the class in any one 
partition. 

GETPUB $JOBCTLG FD 

Subroutine: Computes the address of a 
given PUB entry and stores it in 
register P0INT3 . 



GO 


$J0BCTLN 


KA 


GOCAT 


$JOBCTLG 


EN 


GTNAME 


$JOBCTLG 


EG 


GTNXNT 


$JOBCTLG 


EH 


GTNXOP 


$JOBCTLG 


GP 


HEADN0 


$JOBCTLA 


BJ 


HEXC0N 


$J0BCTLD 


CP 




$JOBCTLJ 


GS 



Subroutine: Converts the operand 
X'CUU' to binary and saves it in the 
location IORGSA. 



Displacement 56 in the communication 
region (COMREG + 56). See Figure 10. 

JBCSW1 $J0BCTLA * 

Displacement 57 in the communication 
region (COMREG + 57). See Figure 10. 

JBCSW2 JJOBCTLA * 

Displacement 58 in the communication 
region (COMREG + 58). See Figure 10. 

JBCSW3 $JOBCTLA * 

Displacement 59 in the communication 
region (COMREG + 59). See Figure 10. 

JBCSW4 $J0BCTL * 

Bit 0: = Job control statement 
started with a //. 

1 = Job control statement 
started without a //. 

Bit 1: = Statement is to be logged 
on SYSLST in case of 
error. 

1 = Statement is not to be 
logged on SYSLST in case 
of error. 



HOLD 


$JOBCTLJ 


GA 


H0LD1 


$JOBCTLJ 


GA 


HOLD 2 


$JOBCTLJ 


GA 


IDCHK 


$JOBCTLM 


JF 


IDMOVE 


$JOBCTLM 


JF 


IDRTN 


$JOBCTLM 


JP 



Bit 2: = Statement is to be logged 
on SYSLOG in case of error 
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1 = 



Bit 3: = 



1 = 



Bit 4: 



Statement is not to be 
logged on SYSLOG in case 
of error. 



No time stamping on SYSLOG 
or SYSLST. 



Time stamping will occur. 
Turned on by TIMOUT 
routine $JOBCTLG if timer 
is running. 



= Reserved. 



LBLOUT $J0BCTLG FE 

$JOBCTLK HN 

Subroutine: Writes label information 
in the VOL area of SYSRES from the job 
control label area. 



Bit 5: = No auto cancel. 

1 = Automatic cancel on error. 

Bit 6-7: Reserved. 

JBCSW5 $J0BCTLA * 

Bits 0-2: Always 0. 

Bit 3: = A label block is in output 
area ready to be written 
on the SYSRES label 
cylinder. 

Bit 4: 1 = Required label statement 
to follow. 

Bit 5: 1 = Only an XTENT statement 
may follow. 

Bit 6: 1 = Only an EXTENT statement 
may follow. 

Bit 7: 1 = Only a DLAB or TPLAB 
statement may follow. 

JBINPR $JOBCTLG EC 

JIBCHN $JOBCTLD * 

Label of a 2-byte location used as a 
2-byte work area for LUBs and JIBs. 



LBLOUTF 




$ JOBCTLK 


HN 


LBLOUT A 




$JOBCTLG 


FE 


LBLOUT0B 




$J0BCTLG 


FE 






$JOBCTLK 


HN 


LBLOUT1 




$J0BCTLG 


FE 






$J0BCTLK 


HP 


LBLOUT2D 




$JOBCTLG 


FF 






$JOBCTLK 


HP 


LBLTYP 




$JOBCTLK 


HA 


LBTOUT 




$ JOBCTLK 


HA 


LDBASE 




$ JOBCTLG 


EJ 


LGCHKDON 




$JOBCTLM 


JA 


LHRTN 




$$BLSTIO 


LD 


LINCNT 




$JOBCTLA 


* 


Maximum 


line count for 


SYSLST 


Maintained in COMREG + 


78. 


LINK 




$J0BCTLG 


EN 


LIOCUU 




$JOBCTLF 


DD 


LIOEOJ 




$JOBCTLF 


DA 


LIOEOJ1 




$JOBCTLF 


DA 


LIOL 




$JOBCTLF 


DB 


LIOLL201 




$JOBCTLF 


DB 


LIOLL3 




$JOBCTLF 


DB 


LIOL1 




$J0BCTLF 


DB 


LIOL2 




$JOBCTLF 


DB 


LIOL202 




$J0BCTLF 


DB 


LIOL4 




$JOBCTLF 


DB 


LIOSW 




$JOBCTLD 


* 


BANK1, 


bit 6: If ON sj 


?ec if ie 


in progress. 




. • 


Set 


ON: LISTIO statement 




processor. 





Set OFF: 



UNPA subroutines 
SFPPE subroutine 
INITL subroutine. 



JIBPTR 



BD 
FC 
FD 



$JOBCTLA 

$JOBCTLG 
JIBSCN $ JOBCTLG 

Subroutine: Scans the JIB table and 
makes the next JIB in a chain 
available for processing. 



Controls processing in the SFPPE 
subroutine. 



JOB 


$JOBCTLG 


EA 


JOBCTL 


$JOBCTLA 


BA 


JOBCTLM 


$JOBCTLM 


JA 


JOBCTL4 


$JOBCTLA 


BB 


JOBCTL5 


$JOBCTLA 


BB 


KEY1 


$$BLSTIO 


LB 


KEY2 


$$BLSTIO 


LB 


KEY3 


$$BLSTIO 


LB 


LAXERR 


$JOBCTLG 


FG 




$ JOBCTLK 


HS 


LBLDST 


$JOBCTLJ 


* 



Beginning of DSECT used in building 
label information for output to label 
cylinder on SYSRES. 



LIOSYX 


$JOBCTLF DD 


LIST 


$JOBCTLG EM 


LISTIO 


$JOBCTLF DA 


LISTX 


$ JOBCTLG EM 


LNAERR 


$JOBCTLG FG 


LNKINT 


$JOBCTLA BH 


LNKNOP 


$JOBCTLG EG 


LNKOUT 


$JOBCTLJ GT 


Subroutine: Controls block < 


byte 


count for writing on SYi 


LOADRS 


§JOBCTLK HQ 


LOADRS1 


$JOBCTLK HQ 


LOG 


$JOBCTLJ GL 
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LOGCHK $JOBCTLA BG 

Root phase subroutine sets switches in 
JBCSWO (COMREG + 56) bits 6 and 7 to 
indicate SYS LOG device type and 
assignment. 

LOGDON $JOBCTLM JH 

LOGIN $JOBCTLA BG 

LOGOUT $JOBCTLA BE 

Root phase subroutine outputs a 
control statement or a message on 
SYSLOG. 

LOGPRT $JOBCTLA BG 

LOOP $JOBCTLG EP 

LSTOUT $JOBCTLA BE 

Root phase subroutine outputs a 
control statement or a message on 
SYSLST. 

LUBADD $JOBCTLD * 

Label of a 2-byte location that holds 
the address of the LUB being assigned. 
Loaded by the subroutine f SYSXXX. 

LUBCOM $JOBCTLD * 

Label of a 2-byte location used for 
temporary storage of a LUB for 
comparison. Used by the SCNLUB 
subroutine. 

LUBCOUNT $JOBCTLG FB 

LUBSCN $JOBCTLG FD 

Subroutine: Makes the address of the 
next LUB entry of a class available in 
register POINT1. 



MTNCNT 


$JOBCTLA 


BK 


MVKIND 


$JOBCTLF 


DQ 


MVMVRT 


$JOBCTLG 


EJ 


MVQUO 


$JOBCTLG 


EP 


NDSCAN 


$JOBCTLA 


BF 




$JOBCTLG 


EP 




$JOBCTLK 


HD 


NDSCAN1 


$JOBCTLK 


HD 


NDSERR 


$JOBCTLJ 


GU 


NDSERR1 


$JOBCTLJ 


GF 


NDTERR 


$JOBCTLG 


FG 




$JOBCTLJ 


GU 


NEWLUB 


$JOBCTLD 


* 



Label of a 2-byte work area in which a 
LUB is built for a new assignment. 
The subroutine TXCUU computes a PUB 
pointer and stores it in byte . 

NEWPUB $JOBCTLD * 

Label of a 2-byte location that holds 
the address of the PUB to be assigned 
to the LUB that is being assigned. 
Loaded by the subroutine TXCUU. 

NEWXTN $JOBCTLK HH 

NEXT $JOBCTLJ GN 

NEXTPUB $JOBCTLM JD 

NEXTTR $JOBCTLM JD 

NICLS $JOBCTLA * 

through 
$JOBCTLK 
A 6-byte field that contains number in 
class lists for background , foreground 
2, foreground 1 system and programmer 
units , translated from 4-byte NICL in 
supervisor. (Figure 7) 



MAP $JOBCTLF DK 

MMDDYY $JOBCTLJ GG 

MMDD1 $JOBCTLJ GG 

MODSW $JOBCTLD * 

BANKl+l f bit 7: If on, specifies that 

the mode must be set for this 
assignment. 

• Set ON: ASSGN statement 
processor. 

• Set OFF: INITL subroutine. 

• Controls processing in the ASSGN 
statement processor. 

MOVLOP $JOBCTLG EK 

MSGOUT $JOBCTLA BE 

Root phase entry into the LOGOUT 
subroutine. Sets switches to allow 
output on both SYSLST and SYSLOG. 



MTC 


$JOBCTLJ 


GE 


MTC1 


$JOBCTLJ 


GE 


MTC2 


$JOBCTLJ 


GE 


MTC3 


$JOBCTLJ 


GE 


MTC 4 


$JOBCTLJ 


GE 


MTC 5 


$JOBCTLJ 


GF 


MTFILL 


$JOBCTLJ 


* 



NLISTX 


$JOBCTLG 


EM 


NLSERR 


$JOBCTLK 


HS 


NLST 


$JOBCTLG 


EG 


NLUERR 


$JOBCTLJ 


GU 




$JOBCTLK 


HS 


NOC 


$JOBCTLD 


* 



Label of a 2-byte location that holds 
the number of logical units of a 
class. Loaded by a the GETLAN 
subroutine. 



NOCATL 


$JOBCTLG 


ED 


NOCLEAR 


$JOBCTLG 


EC 


NODCUX 


$JOBCTLK 


HH 


NODECK 


$JOBCTLG 


EM 


NODSYS 


$JOBCTLA 


BD 


NODUMP 


$JOBCTLG 


EP 


NOEERR 


$JOBCTLA 


BL 


NOEERT 


$JOBCTLA 


BL 


NOEOJ 


$JOBCTLA 


BG 


NOERRS 


$JOBCTLG 


EM 


NOEXC 


$JOBCTLD 


CQ 


NOFP 


$JOBCTLG 


EG 


NOIPLMSG 


$JOBCTLM 


JP 


NOIPT 


$ JOBCTLG 


ED 


NOIPTA 


$JOBCTLG 


ED 


NOIPT1 


$JOBCTLG 


ED 



Default value for system code in tape 
label '0000000DOS/TOS/360'. 
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N0IPT2 


$JOBCTLG 


ED 


N0IPT3 


$JOBCTLG 


ED 


N0IPT7 


$JOBCTLG 


ED 


NOKYTST 


$JOBCTLM 


JF 


NOLEAP 


$JOBCTLJ 


GG 


NOLINK 


$JOBCTLG 


EP 


NOLIST 


$JOBCTLG 


EM 


NOLOG 


$JOBCTLJ 


GL 


NOMPSS 


$JOBCTLG 


EG 


NOMRJB 


$JOBCTLD 


CY 


NOPHDB 


$JOBCTLG 


EH 


NOPSE 


$JOBCTLG 


ED 


NOPTO 


$JOBCTLM 


JH 


NORAS 


$JOBCTLJ 


GJ 


NOREL 


$JOBCTLD 


CM 




$JOBCTLF 


DP 


NORELSW 


$JOBCTLD 


CM 




$JOBCTLF 


DP 


NORESET 


$JOBCTLJ 


GF 


NORESTOR 


$JOBCTLG 


EC 


NOSUBMSG 


$JOBCTLM 


JQ 


NOSYM 


$JOBCTLG 


EM 


NOTAP 


$$BLSTIO 


LA 


NOTDSK 


$JOBCTLA 


BJ 


NOTFG 


$JOBCTLN 


KA 


NOTFG1 


$JOBCTLN 


KB 


NOTINSYS 


$JOBCTLM 


JA 


NOTLAST 


$JOBCTLN 


KB 


NOTLIST 


$JOBCTLG 


EE 


NOTNINTY 


$JOBCTLM 


JN 


NOTNOS 


$JOBCTLG 


EL 


NOTSEQ 


$JOBCTLK 


HG 


NOUPDP 


$JOBCTLM 


JH 


NOXREF 


$JOBCTLG 


EM 


NO ZERO 


$JOBCTLM 


JN 


N02314 


$JOBCTLA 


BA 


NTINJB 


$JOBCTLA 


BL 


NULCHK 


$JOBCTLJ 


GB 


NUMCON 


$JOBCTLD 


CM 




$JOBCTLJ 


GT 




$JOBCTLK 


HR 



OBRSTRT 


$JOBCTLM 


JF 


OBRWRT 


$JOBCTLM 


JC 


OBRWRT1 


$JOBCTLM 


JC 


OBRWRT2 


$JOBCTLM 


JC 


OBRODON 


$JOBCTLM 


JF 


OBR1DON 


$JOBCTLM 


JF 


OERRTN 


$JOBCTLA 


BL 


OLDPUB 


$JOBCTLD 


* 



Label of a 2-byte location used to 
hold the address of the PUB currently 
assigned to the LUB that is being 
reassigned- Loaded by the subroutine 
SYSXXX. 



ONLYOBR 


$JOBCTLM 


JF 


ONOLOG 


$JOBCTLJ 


GL 


OPAUSE 


$JOBCTLJ 


GL 


OPENRCO 


$JOBCTLM 


JJ 


OPENSET 


$JOBCTLM 


JJ 



Subroutine: Opens the recorder file 
(SYSREC) according to the 
initialization of the DTF table. If 
RF=CREATE, the file is opened as an 
output file. If RF=YES, the file is 
an input file. 



OPLBNF 


$JOBCTLG 


FF 




$JOBCTLK 


HP 


OPLOG 


$JOBCTLJ 


GL 


OPNERR 


$JOBCTLM 


JN 


OPNLNK 


$JOBCTLG 


FA 


Subroutine : Opens 


i SYSLNK DF1 



Subroutine: Converts EBCDIC character 
0-9 to binary in WRKRGl. 



NVAERR 


$JOBCTLJ 


GU 


NVOERR 


$JOBCTLG 


FG 


NVOPTN 


$JOBCTLG 


EL 


NVSERR 


$JOBCTLA 


BM 


NXPBNT 


$JOBCTLJ 


GR 


NXTBIT 


$JOBCTLJ 


GK 


NXTJIB 


$JOBCTLA 


BD 


NXTLUB 


$JOBCTLA 


BD 


NXTOPRD 


$JOBCTLJ 


GN 


OBRCON 


$JOBCTLM 


JF 


OBRKY0 


$JOBCTLM 


JF 


OBRKY0A 


$JOBCTLM 


JF 


OBRKY1 


$JOBCTLM 


JF 


OBRONLY 


$JOBCTLM 


JE 


OBRRCD 


$JOBCTLM 


JF 


OBRREAD 


$JOBCTLM 


JM 


Subrout 


ine: Issues 


read commands 


the OBR 


portion of 


the recorder f 



for 



OBRSET $JOBCTLM JM 

Subroutine: Sets up the I/O area for 
OBR record formatting. 



OPNUMH $JOBCTLA * 

A 1-byte field which is the data byte 
in a LOAD instruction. This byte 
maintains a parameter count by the 
control statement processing routines. 
It is reset to zero following each 
successful control statement read 
operation. 

EL 
EP 
EM 
FG 
GU 
HS 
FG 
GU 
HH 
CN 
CN 
DP 
CN 
DP 
CN 
DP 
BJ 
* 
Beginning address of the overlay area 
where $JOBCTLD, $JOBCTLG r $JOBCTLF r 
$JOBCTLK and $JOBCTLJ are loaded. 
This address is within the $JOBCTLA 



OPTION 


$JOBCTLG 


OPTLOG 


$JOBCTLG 


OPTNLG 


$JOBCTLG 


OTSERR 


$JOBCTLG 




$JOBCTLJ 




$JOBCTLK 


OTSERR1 


$JOBCTLG 




$JOBCTLJ 


OUTLBL 


$JOBCTLK 


OUTPUT 


$JOBCTLD 


OUTPUTS 


$JOBCTLD 




$JOBCTLF 


OUTPUT! 


$JOBCTLD 




$JOBCTLF 


OUTPUT2 


$JOBCTLD 




$JOBCTLF 


OVRLP1 


$JOBCTLA 


OVRVCT 


$JOBCTLA 
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root phase. $JOBCTLA initialized the 
base register, BASRG2 r with this 
address each time it is loaded. 



RASCAN $JOBCTLG FD 

Subroutine: Scans program LUBs and 
sets assignment flags in assigned 
PUBs. 



PACKAG 


$JOBCTLK 


HH 


PARSTD 


$JOBCTLG 


EN 


PARSTD1 


$JOBCTLG 


EN 


PASSRF 


$JOBCTLG 


EB 


PAUSE 


$JOBCTLJ 


GL 


PCHOUT 


$JOBCTLJ 


GN 


PCILSUP 


SJOBCTLG 


EN 


PCILSUPR 


$JOBCTLG 


EN 


PIKCMA 


$JOBCTLD 


CU 


PIKCPL 


$JOBCTLD 


CU 


PIKFLG 


$JOBCTLD 


cu 


PIKFLG7X 


$JOBCTLD 


CU 


PMB 


$JOBCTLM 


JA 


PNPERR 


$JOBCTLG 


FG 




$JOBCTLJ 


GU 


PRCNTCMP 


$JOBCTLM 


JN 


PRCNTFLL 


$JOBCTLM 


JF 


PREOPR 


$JOBCTLJ 


GP 


PRGUNT 


$JOBCTLJ 


GS 


PROGSW 


$JOBCTLD 


* 


BANKl, 


bit 5: If ON, s 


pec if : 



RASSGN 


$JOBCTLG 


FD 


RASSYS 


$JOBCTLM 


JA 


RDCID 


$JOBCTLG 


EG 


RDRIN 


$JOBCTLA 


BG 


RDSTMT 


$JOBCTLA 


BG 



Root phase subroutine reads a 
statement from SYSRDR or SYSLOG. The 
job control switch, JBCSWO (COMREG + 
56) bit 0, is tested to determine if 
SYSRDR or SYSLOG is to be used. If 
SYSLOG is specified but it is not a 
1052, the switch is changed to 
indicate SYSRDR and the subroutine is 
reentered via the control routine. 

RECORD $JOBCTLM JP 

RELEASE $JOBCTLJ GA 

RELJBC $JOBCTLA BN 

Root phase subroutine modifies address 
constants making Job Control 
relocatable. 



the programmer LUBs are to be scanned. 

• set ON: LISTIO statement 
processor, ASSGN statement 
processor, RESET statement 
processor. 

o Set OFF: INITL subroutine ASSGN 
statement processor. 

• Controls processing in: 

1. LISTIO statement processor. 

2. ASSGN statement processor. 

PSHRTN $$BLSTIO LD 

Subroutine: Used by the LISTIO 
statement processor to build a header 
print line. 



RELLOP 




$JOBCTLD 


CM 






$JOBCTLF 


DP 






$JOBCTLG 


EK 


RELPRG 




$JOBCTLG 


EJ 


RELTST 




$JOBCTLG 


EJ 


RESDN 




$JOBCTLA 


BA 


RESET 




$JOBCTLF 


DF 






$JOBCTLJ 


GF 


RESETCL 




$JOBCTLF 


DF 


RESETSW 




$JOBCTLD 


* 


BANK1, 


bit 7: If ON, 


specif: 


in 


progress . 





• Set ON: RESET statement processor 
© Set OFF: INITL subroutine. 

• Controls exit from the RSTSTD 
subroutine . 



PSHRTN1 


$$BLSTIO 


LD 


PTR 


$JOBCTLA 


BN 




$JOBCTLD 


CM 




$JOBCTLF 


DP 




$JOBCTLG 


EK 


PUBMSK 


$JOBCTLD 


CS 




$JOBCTLF 


DR 


PUBNEXT 


$JOBCTLM 


JD 


PUIF 


$$BLSTIO 


LA 



Subroutine: Used by the LISTIO and 
DVCDN statement processors. Extracts 
information from the PUB preparatory 
to building a print line. 



RESET01 


$JOBCTLF 


DF 


RESETl 


$JOBCTLF 


DF 


RESET101 


$JOBCTLF 


DG 


RESET11 


$JOBCTLF 


DG 


RESET2 


$JOBCTLF 


DG 


RESET3 


$JOBCTLF 


DG 


RESET4 


$JOBCTLF 


DG 


RESET5 


$JOBCTLF 


DG 


RESET 8 


$JOBCTLF 


DG 


RESFCH 


$JOBCTLG 


EF 


RESTORE 


$JOBCTLG 


EC 


RETADD 


$JOBCTLF 


DA 


RETSW 


$JOBCTLD 


♦ 


BANK1, 


bit 3: 





PUIFT3 


$$BLSTIO 


LA 


PUIF1 


$$BLSTIO 


LA 


PUIF4 


$$BLSTIO 


LA 


PUIF5 


$$BLSTIO 


LA 


QEND 


$JOBCTLG 


EP 


RANXJB 


$JOBCTLG 


FD 



Set ON: SFPPE subroutine. ASSGN 
statement processor. 
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• Set OFF: ASSGN statement 
processor . 



DVCDN statement processor INITL 
subroutine, 

• Controls processing in the SFPPE 
subroutine, 

• Controls processing in the GETJIB 
subroutine* 



RETURN 


$JOBCTLN 


KB 


RFEND 


$JOBCTLJ 


GJ 


RFNO 


$JOBCTLJ 


G J 


RFSERR 


$JOBCTLM 


JN 


RFSET 


$JOBCTLJ 


GJ 


RFYES 


$JOBCTLJ 


GJ 


RLINDT 


$JOBCTLA 


BG 


RLNCNT 


$JOBCTLA 


♦ 


Save area for SYSLST 


current 


count. 







RLSENT $JOBCTLJ GA 

RMR $JOBCTLD CK 

RNAERR J $JOBCTLA BL 

RNAME $JOBCTLG * 

An 8-byte area in partition register 
save area used to save job name. 



RNGTOP 


$JOBCTLD 


CM 




$JOBCTLK 


HR 


ROD 


$JOBCTLM 


JH 


RODCMP 


$JOBCTLM 


JH 


RODERR 


$JOBCTLM 


JH 


RODSCAN 


$JOBCTLM 


JH 


RSPASG 


$JOBCTLG 


FB 


RSPPAE1 


$JOBCTLJ 


GR 


RSPPEA 


$JOBCTLJ 


GR 


RSSASG 


$JOBCTLG 


EA 


RSSASG1 


$JOBCTLG 


EA 


RSSASG2 


$JOBCTLG 


EB 


RSTASG 


$JOBCTLG 


FB 



Subroutine: Restores system and 
programmer assignments to standard. 

RSTCOM $JOBCTLG EB 

RSTRT $JOBCTLK HQ 

RSTSTD $JOBCTLD CR 

Subroutine: Restores a LUB to its 
standard I/O assignment or unassigns a 
nonstandard assignment. 



RSTSTD1 


$JOBCTLD 


CR 


RSTSTD3 


$JOBCTLD 


CR 


RSTSTD4 


$JOBCTLD 


CR 


RSTSTD5 


$JOBCTLD 


CR 


RSTSW4 


$JOBCTLG 


EA 


SAMEDIB 


$ JOBCTLD 


CJ 


SAMELUB 


$JOBCTLD 


CJ 


SCANR1 


$JOBCTLA 


BF 



Root phase subroutine scans a control 
statement and makes a parameter 
available for processing. 

• A comma, blank , or equal sign ends 
the scan. 



• Register P0INT1 contains the 
address of the 1st character of 
the parameter. 

• Register P0INT2 contains the 
number of characters remaining to 
be scanned. 

• Register P0INT3 contains a count 
of the number of characters in the 
parameter. This character count 
is 1 less than the actual 
character count and is used to 
control the character count in 
move, and compare instructions. 

• Between entries into the 
subroutine, registers P0INT1 and 
POINT2 are saved in an area 
labeled TMPAR1. 

• The entry SCANR1, when it is 
desired, scans for the operation 
field. 

• The entry SCANR2 scans for prime 
operands . 

• The entry SCANR3 scans for the 
parameter of a prime operand. 

Example: 

SET RCLST = 2000, LINCNT = 99,... 

SCANR2 $ JOBCTLA BF 

SCANR3 $J0BCTLA BF 

SCNINT $JOBCTLG FB 

Subroutine: Initializes for LUB and 

PUB table scan. 

SCNJIB $JOBCTLD CV 

Subroutine: Computes address of a JIB 
in register P0INT3. The stored LUB of 
the JIB is moved to the location 
JIBCHN. 

SCNLUB $JOBCTLD CV 

Subroutine : Makes all LUBs of a class 
available one at a time. The current 
LUB is made available in the location 
JIBCHN. The address of the next LUB 
is saved in the location SLADD. The 
residual number of LUBs (in a class) 
is saved in the location SNICL. 

SCNRL1 $ JOBCTLA BF 

SCNRL2 $J0BCTLA BF 

$JOBCTLK HD 

SDRREAD $JOBCTLM JM 

Subroutine: Issues read commands for 
the SDR portion of the recorder file. 

SDRSRCH $JOBCTLM JD 

SDRUNRC $ JOBCTLM JD 

SDRUPDT $JOBCTLM JK 

Subroutine: Updates the seek address 
when searching for an available entry 
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in the SDR portion of the recorder 
file. 



SDRUPGO 


$JOBCTLM 


JK 


SEOJBACK 


$JOBCTLN 


KB 


SDRWRT 


$JOBCTLM 


JB 


SELRLD 


$JOBCTLA 


BN 


SET 


$JOBCTLJ 


GG 


SETEXT 


$JOBCTLJ 


GG 


SETFLAGS 


$JOBCTLK 


HF 


SETLOD 


$JOBCTLG 


EF 


SETOUTPT 


$JOBCTLJ 


GD 


SETWRT 


$JOBCTLA 


BJ 


SETYES 


$JOBCTLJ 


GJ 


SEUOB 


$$BLSTIO 


LC 



SIMEND 


$JOBCTLG 


EA 


SIMEOJ 


$JOBCTLN 


KA 


SIMRET 


$JOBCTLG 


EB 


SJBKSWCH 


$JOBCTLN 


KB 


SKIPLN 


$JOBCTLD 


CQ 


SLADD 


$JOBCTLD 


* 



Label of a 2-byte location used to 
hold the address of the next LUB of a 
class to be scanned- Loaded by the 
GETLAN subroutine. 



Subroutine: Used by the LISTIO 
statement processor to build a print 
line in the output area labeled 
BUFFER. 



SLINCT 


$JOBCTLJ 


GG 


SPCEXC 


$JOBCTLA 


BJ 


SRCHSDR 


$JOBCTLM 


JE 


SSIDRTRN 


$JOBCTLM 


JQ 


SSLOOP 


$JOBCTLM 


JQ 


STDASGN 


$JOBCTLG 


FC 


STDFDSW 


$JOBCTLD 


* 



SEUOB2 


$$BLSTIO 


LC 


SFNC 


$JOBCTLD 


CY 


SFPPE 


$JOBCTLD 


CS 




$JOBCTLF 


DR 


SFPPEDQ 


$JOBCTLF 


DJ 



Subroutine: Used by DVCDN Statement 
processor to unassign LUBs and JIBs 
attached to DOWNed device. 

SFPPE01 $JOBCTLD CS 

$J0BCTLF DR 

SFPPE02 $JOBCTLD CS 

$JOBCTLF DR 

SFPPE03 $JOBCTLD CU 

$JOBCTLF DR 

SFPPE1 $JOBCTLD CS 

$JOBCTLF DR 

SFPPE10 $JOBCTLF DS 

SFPPE11 $JOBCTLF DS 

SFPPE12 $JOBCTLF DS 

SFPPE13 $JOBCTLF DS 

SFPPE14 $JOBCTLF DS 

SFPPE15 $JOBCTLF DS 

SFPPE16 $JOBCTLF DS 

SFPPE17 $JOBCTLF DS 

SFPPE18 $JOBCTLF DS 

SFPPE19 $JOBCTLF DS 

SFPPE2 $JOBCTLD CS 

$JOBCTLF DR 

SFPPE201 $JOBCTLF DS 

SFPPE3 $JOBCTLD CU 

$JOBCTLF DR 

SFPPEU $JOBCTLD CS 

$JOBCTLF DR 

SFPPE5 $JOBCTLD CS 

$JOBCTLF DR 

SFPPE5A $JOBCTLD CS 

$JOBCTLF DR 

SFPPE6 $JOBCTLD CS 

$JOBCTLF DR 

SFPPE7 $JOBCTLD CS 

$JOBCTLF DR 

SFPPE 8 $JOBCTLD CT 

$JOBCTLF DS 

SFPPE8A $JOBCTLD CT 

$JOBCTLF DS 

SFPPE8B $JOBCTLF DS 

SFPPE9 $JOBCTLD CT 

$JOBCTLF DS 



BANK1, bit 2: If ON, specifies that a 
stored standard assignment has been 
found. 

• Set ON: SFPPE subroutine. 

• Set OFF: SFPPE subroutine INITL 
subroutine. 

-• Controls processing in the SFPPE 
subroutine . 



STDLBL 


$JOBCTLG 


EN 


STILOK 


$JOBCTLG 


EP 


STLLMT 


$JOBCTLJ 


GQ 


STLNKA 


$JOBCTLG 


EG 


STOP 


$JOBCTLJ 


GM 


STORBACK 


$JOBCTLG 


EC 


STSCLB 


$JOBCTLG 


FD 


STSRWR 


$JOBCTLG 


EH 


STUCRL 


$JOBCTLF 


DQ 



Subroutine: Writes a line from the 
I/O area labeled BUFFER and 
initializes for the next line. 

STUF1U $JOBCTLF DQ 

Subroutine: Converts the upper limit 
to EBCDIC and stores it in the correct 
field of a print line for the MAP 
processor. 

STUSPC $JOBCTLF DQ 

Subroutine: Builds the portion of a 
MAP print line indicating program 
prefix and upper limit. 

SULB $$BLSTIO LC 

Subroutine: Used by the LISTIO 
statement processor to build the 
LUNIT r LCMNT r LCHNL, LPUNIT, and LMODE 
fields of a print line. 



SULB1 
SULB2 
SUPLOG 



$$BLSTIO 
$$BLSTIO 
$JOBCTLA 



LC 
LC 
BC 
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SVCBTRNS $JOBCTLF DA 

Subroutine: Fetches the B-transient 
$$BLSTIO. The register LINKR2 returns 
control to the calling sequence from 
the B-transient. 



bank used to control processing for 
format verification, logging 
conventions, and cancel procedures for 
the statement. Figure 8 shows the 
format of an entry in the Phase-Vector 
Table- 



SWBACK 


$JOBCTLN 


KB 


SXTPOK 


$JOBCTLK 


HG 


SYM 


$JOBCTLG 


EM 


SYSDATE 


$JOBCTLJ 


GG 


SYSPRM 


$JOBCTLG 


EP 


SYSRF 


$JOBCTLJ 


GJ 


SYSTABLE 


$JOBCTLF 


* 



Beginning of logical unit system table 
used to determine logical unit type 
and LUB table displacement. 

SYSUPI $JOBCTLJ GG 

SYSUPI1 $JOBCTLJ GK 

SYSUTB $JOBCTLJ * 

Beginning of table of LIOCS system 

units . 

SYSXXX $JOBCTLD CW 

Subroutine: Converts a logical unit 
designated as SYSXXX, into: 

1. Symbolic unit address (class and 
order) in the location CLOARD. 

2. LUB address in the location LUBAD. 

3. PUB pointer of the PUB currently 
assigned to this logical unit in 
the location OLDPUB. 

4. The internal representation of 
device type in location NEWTYP. 



Byte 



6 


7 


8 


9 


Operation 
Field 


Condition 
Switches 


Branch 
Vector 
Displacement 


Phase 

Identification 

Letter 



SYSXXX01 


$JOBCTLD 


CW 


SYSXXX1 


$ JOBCTLD 


CW 


SYSXXX2 


$JOBCTLD 


CW 


SYSXXX3 


$JOBCTLD 


CW 


SYSXXX4 


$JOBCTLD 


CW 


SYSXXX 5 


$JOBCTLD 


CW 


SYSXXX6 


$ JOBCTLD 


CW 


TAPINT 


$JOBCTLA 


BH 


TBLADR 


$JOBCTLA 


* 



Label of the Phase-Vector Table 
contained in the root phase 
($JOBCTLA) . This table is used to 
determine the correct phase and 
processing routine required to process 
a given control statement. 

The operation field of the control 
statement is compared to each entry in 
the table until an equal is found. 
The equal entry identifies the correct 
phase and the displacement within the 
phase of the branch instruction that 
directs the program to the correct 
processing routine. The entry also 
contains a 1-byte condition switch 
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Figure 8. Phase- Vector Table Entry Format 



Operation Field : EBCDIC 
representation of the operation field. 

Condition Switches : 
Bit - reserved. 

1 - statement is to be processed 

even though a cancel condition 

exists. 

2,3 - Both on; suppress logging. 
2 off, 3 on; unconditional 
SYSLOG logging and 
conditional SYSLST logging. 
Both off; conditional 
logging on SYSLOG and 
SYSLST. 

4 - statement may start, with //. 

5 - statement may start without 

//. 

6 - statement may start in column 

1. 

7 - statement may start in other 

than column 1. 

Branch Vector Displacement: 
Displacement within the phase that is 
added to the phase origin address to 
develop the address of a branch 
instruction which transfers control to 
the correct processing routine. 

Phase Identification Letter : Contains 
the EBCDIC character A, D, F, G, J, K, 
M or N and identifies the job control 
phase containing the processing 
routine. 

Example of the JOB control statement 
entry : 

DC CLT'JOB" 

DC X f 7A" 

DC ALK12) 
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DC C'G' 

1. The JOB statement is to be 
processed even if a cancel is 
being executed. 

2. Logging on both SYSLOG and 
SYSLST is suppressed. 

3 . The statement may not start 
without // and may not start 
in other than column one. 

4. The branch- vector table entry 
is located at a displacement 
of 12 bytes from the beginning 
of the phase with suffix f G" 
($J0BCTLG). 



has been loaded in the B-transient 
area. 

• Set ON: SVCBTRNS subroutine. 

• Set OFF: LISTIO statement 
processor, INITL subroutine. 

• Controls processing in: 

1. SFPPE subroutine 

2. ERRRTN common error routine. 



TBNHDR 


$JOBCTLG 


EE 


TBNXPB 


$JOBCTLG 


EE 


TBPBLP 


$JOBCTLG 


EE 


TEBHDR 


$JOBCTLG 


EE 


TEBLOP 


$JOBCTLG 


EE 


TEBS 


$JOBCTLG 


EE 


TEST 


$JOBCTLN 


KA 


TESTOP 


$JOBCTLM 


JA 


TEST1 


$JOBCTLF 


DE 


TEST 2 


$JOBCTLF 


DE 


TFILL 


$JOBCTLK 


HA 


TIAERR 


$JOBCTLD 


CY 


TIME 


$JOBCTLA 


* 



An 8-byte area used to contain system 
timer and system time of day, loaded 
by $JOBCTLA initialization from Hex 
locations 50-57. 

TIMOUT $JOBCTLG FA 

Subroutine: Used by the JOB and EOJ 
statement processors to log the time 
of day. 

TIMOUTl $JOBCTLG FA 

TIMOUT2 $JOBCTLG FA 

TLBL $JOBCTLK HB 

TMPSW $JOBCTLD * 

BANK1+1, bit 6: If ON, specifies that 
the assignment is temporary. 

• Set ON: ASSGN statement 
processor. 



Set OFF: 



INITL subroutine. 



Controls processing in the ASSGN 
statement processor. 



DA 
GN 
LA 
HA 
HA 
* 
If ON, specifies that 



TNVSERR 




$JOBCTLF 


TOOMANY 




$JOBCTLJ 


TPCK 




$$BLISTIO 


TPLAB 




$ JOBCTLK 


TPLEND 




$JOBCTLK 


TRANSW 




$JOBCTLD 


BANK1+1 


, bit 1: 


the 


Job 


Control t: 



TRKCLC 


$JOBCTLM 


JA 


TRKCMP 


$JOBCTLM 


JA 


TRKEXH 


$JOBCTLM 


JA 


TRKGO 


$JOBCTLM 


JA 


TRKIN 


$JOBCTLM 


JA 


TRKLST 


$JOBCTLM 


JA 


TRKOBR 


$JOBCTLM 


JB 


TRKOUT 


$JOBCTLM 


JA 


TRKSET 


$JOBCTLM 


JJ 


TSLNKSW 


$JOBCTLJ 


GD 


TSTYPE 


$JOBCTLA 


BC 


TXCUU 


$JOBCTLD 


CP 




$JOBCTLF 


DP 




$JOBCTLJ 


GS 



Subroutine: Converts the operand 
X'CUU' from hex to binary. 

• PUB address is saved in register 
POINT 4. 

• PUB pointer is computed in 
register WRKRG3. 

• Device type (from the PUB) is 
saved in the location DVCTYP. 



TXCUU1 



TXCUU1+8 
TXCUU 2 



TXCUU3 

TXCUU4 

T2311 

UA 

UADN1 

UADN2 

UADN3 

UADN4 

UADN5 

UADN6 

UALUB 

UALUB1 

UANXJB 

UASCAN 



$JOBCTLD 
$JOBCTLF 
$JOBCTLJ 
$JOBCTLD 
$JOBCTLD 
$JOBCTLF 
$ JOBCTLJ 
$JOBCTLD 
$JOBCTLF 
$JOBCTLD 
$JOBCTLF 
$JOBCTLM 
$JOBCTLF 
$JOBCTLF 
$JOBCTLF 
$JOBCTLF 
$JOBCTLF 
$JOBCTLF 
$JOBCTLF 
$JOBCTLF 
$JOBCTLF 
$JOBCTLG 
$JOBCTLG 



CP 
DP 
CY 
CP 
CP 
DP 
GS 
CP 
DP 
CP 
DP 
JH 
DE 
DE 
DE 
DE 
DE 
DE 
DE 
DJ 
DJ 
FC 
FC 
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Subroutine: Restores program LUBs to 
standard assignments. Detaches 
program JIBs and places them in free 
list. Resets program ownership flags 
in PUBs. 
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UASTD 


$JOBCTLF 


DJ 


UCS 


$JOBCTLJ 


GB 


UCSDN 


$JOBCTLJ 


GC 


UCSSCN 


$JOBCTLJ 


GC 


UCS1 


$JOBCTLJ 


GB 


UCS 2 


$JOBCTLJ 


GB 


UCS 3 


$JOBCTLJ 


GC 


ucs a 


$JOBCTLJ 


GC 


UNA 


$JOBCTLF 


DM 


UNAB 


$JOBCTLF 


DM 


UNAE 


$JOBCTLF 


DM 


UNANENT 


$JOBCTLD 


CU 


UNASGN 


$JOBCTLG 


FC 


UNASSGN 


$JOBCTLD 


CK 


UNA1 


$JOBCTLF 


DM 


UNA1A 


$JOBCTLF 


DM 


UNA2 


$JOBCTLF 


DN 


UNA2A 


$JOBCTLF 


DN 


UNA2AA 


$JOBCTLF 


DN 


UNA2B 


$JOBCTLF 


DN 


UNBLKD 


$JOBCTLJ 


GD 


UNCLOG 


$JOBCTLA 


BC 


UNCU 


$JOBCTLF 


DC 


UNITS 


$JOBCTLF 


DC 


UNITS1 


$JOBCTLF 


DC 


UNITS2 


$JOBCTLF 


DC 


UNITS3 


$JOBCTLF 


DC 


UNITS a 01 


$JOBCTLF 


DC 


UNITS'* 02 


$JOBCTLF 


DC 


UNITS 5 


$JOBCTLF 


DC 


UNITS501 


$JOBCTLF 


DC 


UNITS 6 


$JOBCTLF 


DC 


UNITS7 


$JOBCTLF 


DC 


UNITS 8 


$JOBCTLF 


DC 


UNITS9 


$ JOBCTLF 


DC 


UNPA 


$JOBCTLD 


CU 



Entry into the SFPPE subroutine to 
unassign a standard assignment. This 
entry is used by the ASSGN routine and 
the RSTSTD subroutine. 



UNPA1 


$JOBCTLD 


CU 


UNPA3 


$JOBCTLD 


CU 


UNRCSDR 


$JOBCTLM 


JE 


UNRERR 


$JOBCTLM 


JN 


UNRERR1 


$JOBCTLM 


JN 


UNRERR2 


$JOBCTLM 


JN 


UNSW 


$JOBCTLD 


* 



BANK1+1, bit 5: If ON, specifies a 
single unit is to be listed. 

• Set ON: LISTIO statement 
processor when performing a LIOCUU 
function. 

• Set OFF: INITL subroutine. 

• Controls processing in the LISTIO 
statement processor. 



UNTFND 
UPDATE 



$JOBCTLJ 
$JOBCTLM 



GS 

JK 



UPDHDN $JOBCTLA BJ 

UPDOPT $JOBCTLJ GD 

UPDSAV $JOBCTLJ GT 

Subroutine: Moves data from input 

buffer to SYSLNK output area. 

Maintains a block count that is used 

for blocking records. 

UPDTHDR $JOBCTLM JK 

Subroutine: At completion of SDR 
and/or OBR processing, outputs an 
updated header record onto the 
recorder file. 

UPDTMOVE $JOBCTLM JP 

UPDTOBR $ JOBCTLM JK 

UPRITE $JOBCTLM JL 

Subroutine: After each write, updates 
the disk address for the next write. 



UPR1 


$JOBCTLM 


JL 


UPSI 


$JOBCTLJ 


GK 


UPSICH 


$JOBCTLJ 


GK 


USERROR 


$ JOBCTLN 


KA 


USRLBL 


$JOBCTLG 


EN 


USRLBL1 


$JOBCTLG 


EN 


VMBUCK 


$JOBCTLJ 


GN 


VMEND 


$JOBCTLJ 


GN 


VMRTN 


$JOBCTLJ 


GN 


VOL 


$JOBCTLK 


HA 



WAITERR $JOBCTLA BL 

WAITR $JOBCTLJ GM 

WRITE $JOBCTLM JL 

Subroutine: Issues all write commands 

to the recorder file. 

WRTPHD $JOBCTLG EH 

Subroutine: Used by the EXEC 
statement processor to write the phase 
directory. 

WRTPHDR $JOBCTLG EH 

XREF $JOBCTLG EM 

XTENT $JOBCTLK HG 

XTOP12 $JOBCTLK HM 

Subroutine: Checks, converts, and 
stores extent type and sequence number 
in label output area. 

XTOP12A $JOBCTLK HM 

XTOP12B $JOBCTLK HM 

XTOP3 $JOBCTLK HG 

XTOP34 $JOBCTLK HM 

Subroutine: Checks, converts, and 
stores lower and upper extent limits 
in the label output area. 
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XTOP5 

XTOUT 

XTUNIT 

YDISK 

YESOPT 

ZRMVDN 

ZRMVLP 



$ JOBCTLK 
$JOBCTLK 
$JOBCTLK 
$JOBCTLD 
$JOBCTLM 
$JOBCTLA 
$JOBCTLA 



HH 
HH 
HH 
CE 
JD 
BE 
BE 
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APPENDIX B: ERROR MESSAGE CROSS REFERENCE 



Message 


Phase 


Chart ID 


1A9ND 


$JOBCTLD 


CE 








1C00A 


$JOBCTLA 


BL 


0I00A 


$$A$IPL2 


AB 


1C10A 


$JOBCTLA 


BL 


0I01A 


$$A$IPL2 


AD 




$JOBCTLG 


FG 


0I10A 


$IPLRT2 


AK 




$JOBCTLJ 


GD 


0I11I 


$IPLRT2 


AQ 


1C30A 


$JOBCTLJ 


GB,GM 


0I12I 


$IPLRT3 


AT 


1C3NI 


$JOBCTLG 


FG 


0I13I 


$IPLRT3 


AR 


1C70D 


$JOBCTLA 


BE 


0I14I 


$IPLRT3 


AV 


1C80D 


$JOBCTLA 


BL 


0I15I 


$IPLRT3 


AR 


1I00A 


$JOBCTLA 


BB 


0I16A 


$IPLRT4 


AX 


1I50I 


$JOBCTLA 


BL 


0I17A 


$IPLRT4 


AX 


1I70I 


$JOBCTLA 


BM 


0I18A 


$IPLRT2 


AK 


1I83A 


$JOBCTLM 


JB 


0I20I 


$IPLRT4 


AY 


1I84A 


$JOBCTLM 


JA, J J 


0I22I 


$IPLRT4 


AZC 


1I85A 


$JOBCTLM 


JD 


0I23I 


$IPLRT4 


AZ 


1I86A 


$JOBCTLM 


JD,JF r JG,JM 


0I24A 


$IPLRT3 


AU 


1I87A 


$JOBCTLM 


JE 


0I25I 


$IPLRT4 


AY 


1I88I 


$JOBCTLJ 


GJ 


1A0ND 


$JOBCTLD 


CC,CD,CE, 


1I89I 


$JOBCTLM 


JP, JQ 






CG f CH r CJ 


1I90D 


$JOBCTLM 


JP 


1A1ND 


$JOBCTLD 


CA f CB 


1I91D 


$JOBCTLM 


JQ 


1A2ND 


$JOBCTLD 


CA f CB r CH # 


1I92D 


$JOBCTLM 


JQ 






CL f CP 


1I93I 


$JOBCTLM 


JN 


1A20D 


$JOBCTLG 


FB 


1L00D 


$JOBCTLK 


HF, HG,HJ r 




$JOBCTLJ 


GB,GE 






HK, HL f HM 


1A3ND 


$JOBCTLD 


CG r CR 


1L10D 


$JOBCTLG 


FE 


1A4ND 


$JOBCTLD 


CA r CL f CH # CW 




$JOBCTLK 


HG,HJ,HP 




$JOBCTLF 


DD # DF 


1P00D 


$JOBCTLG 


GQ 


1A40D 


$JOBCTLJ 


GS 


1S00A 


$JOBCTLA 


See BM-B1 




$JOBCTLK 


HQ 




through 




lA5tiD 


$JOBCTLD 


CP 




$JOBCTLM 






$JOBCTLF 


DP 


1S00D 


$JOBCTLG 


FG 


1A50D 


$JOBCTLJ 


GS 




$JOBCTLM 


JH 


1A6ND 


$JOBCTLD 


CA 


1IS03I 


$JOBCTLJ 


GN 




$JOBCTLF 


DM 


1S10D 


$JOBCTLG 


EF,rEN f FE 


1A7ND 


$JOBCTLD 


CA 




$JOBCTLJ 


GD, GN 




$JOBCTLF 


DK 




$JOBCTLK 


HA # HC f HF f HG, 


1A70D 


$JOBCTLJ 


GE 






HJ,HK # HP 


1A90D 


$JOBCTLF 


DL 
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APPENDIX C: EXPLANATION OF FLOWCHART SYMBOLS 



PROCESS 
• B2 



OESCRIPTICN 



A GROUP OF PROGRAM INSTRUCTIONS 
THAT PERFORM A PROCESSING 
FUNCTICN OF THE PROGRAM. THE 
LABEL, IF ANY, IS SHOWN ABOVE 
THE BLOCK. 



EB-D4, INITL1 
EC-B2, OPENX4 
BL-J1, ENDPRN 



IF ANY ADDITIONAL EXPLANATION 
IS REQUIRED, ITS LOCATION ON 
THE CHART IS IDENTIFIED BY AN 
ASTERISK ANC THE BLOCK IC. 



•LABEL1 

* SUBROUTINE 



DESCRIPTION OR TITLE OF A ROUTINE 
THAT IS DETAILED ON ANOTHER 
FLOWCHART. THE STARTING LABEL OF 
THE ROUTINE AND THE FLOWCHART IC 
APPEAR ABOVE THE STRIPE. 



,X« ERROR ROUTINE « 



PREPARATION 



AN INSTRUCTION, OR GROUP OF 
INSTRUCTIONS, THAT CHANGES 
PORTIONS OF A ROUTINE OR 
INITIALIZES A ROUTINE FOR 
GIVEN CONDITIONS. 



A GROUP OF OPERATIONS NOT 
DETAILED IN THE FLOWCHARTS 
IN THIS MANUAL. SUCH AS 
USER'S ROUTINES. 



USER ROUTINE* 



»«##F1*«»**»»« 
INPUT/OUTPUT 



ANY FUNCTION OF AN INPUT/OUTPUT 
DEVICE OR PROGRAM, USUALLY 
BRANCHING TO AN I/O ROUTINE TO 
PERFORM THE FUNCTION STATED IN 
THE BLOCK. 



Gl ». 

DECISION 



POINTS WHERE THE PROGRAM 
BRANCHES TO ALTERNATE PROCESSING, 
BASED UPON VARIABLE CONDITIONS 
SUCH AS PROGRAM SWITCH SETTINGS 
AND TEST RESULTS. 



•*H1«»#»«» 
TERMINAL 



• END OF JOB 



CN-PAGE CONNECTOR. AN ENTRY 
FRCM, OR AN EXIT TO, ANOTHER 
FUNCTION ON THE SAME FLOWCHART. 
THE NUMBER IN THE CONNECTOR 
IDENTIFIES THE CORRESPONDING 
ENTRY OR EXIT ON THE CHART. 





OFF-PAGE 




OR AN EXI 


• «*** 


ANOTHER F 


»BD • 


IN THE CO 


« D4# 


CHART AND 


* 


LABEL, IF 

THE CONNE 


FILINP 


AND EXITS 




THE CONNE 




ARE LISTE 



CONNECTOR. AN ENTRY FROM, 
T TO, A GIVEN POINT ON 
LOWCHART. THE CHARACTERS 
NNECTOR IDENTIFY THE 
BLOCK. THE CORRESPONDING 
ANY, IS PLACED OUTSIOE 
CTOR. FOR MULTIPLE ENTRIES 
, AN ASTERISK APPEARS IN 
CTOR AND THE CHARACTERS 
D NEARBY. 
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APPENDIX D: SAMPLE LISTIO PRINTOUTS 





±1 


*} 




ft ftft FOREGROUND 1 ft ftft 




// LISTIO SYS 


II LISTIO ALL 




1/0 UNIT CMNT CHNL 


UNIT MODE 




ft ftft BACKGROUND *** 




ft ft ft BACKGROUND ft-'-ft 


SYSOOO ftft 


UA ftft 




I/O UNIT CMNT CHNL UNIT MODE 


I/O UNIT CMNT CHNL UNIT MODE 


SYSOOI 


UA ftft 










SYS00 2 


UA ftft 




SYSRDR OC 


SYSRDR 


OC 


SYS 00 3 


UA ftft 




SYSIPT OC 


SYS 1 PT 


OC 


SYSOOI 


UA ftft 




SYSPCH OD 


SYSPCH 


OD 


SYS 005 


UA ft-'-- 




SYSLST 1 OA 


SYSLST 


1 OA 


SYS006 


UA ftft 




SYSLOG IF 


SYSLOG 


1 F 


SYS00 7 


UA ftft 




SYSLNK 1 91 


SYSLNK 


1 91 


SYS008 


UA ftft 




SYSRES 1 92 


SYSRES 


1 92 


SYS009 


UA ftft 




SYSSLB ftft UA •••'■'•• 


SYSSLB 


** UA ftft 


S Y S 1 


UA ftft 




SYSRLB ftft UA ** 


SYSRLB 


*ft UA ftft 


SYS011 


UA ftft 




SYSREC 1 91 


SYSREC 


1 91 


S Y S 1 2 


UA ftft 




21 






S Y S 1 3 


UA ftft 






ft ftft BACKGROUND ft ft ft 


S Y S 1 l\ 


UA ftft 




II LISTIO PROG 






SYS015 


UA ftft 






I/O UNIT CMNT CHNL UNIT MODE 








•'••'•■-•• BACKGROUND *** 






U 








SYSOOO 


ftft UA ftft 


// LISTIO SYSRDR 






I/O UNIT CMNT CHNL UNIT MODE 


SYSOOI 


1 91 










SYS002 


1 91 


ft ftft BACKGROUND ft ftft 




SYSOOO 91 


SYS003 


1 91 








SYSOOI 91 


SYSOOI 


** UA ftft 


I/O UNIT CMNT CHNL 


UNIT MODE 




SYS002 91 


SYS005 


** UA *••'• 








SYS003 91 


SYS006 


** UA ftft 


SYSRDR 


OC 




SYSOOI ftft UA ft* 


SYS007 
SYS008 
SYS009 


* * u A "•'•' "•'•' 








SYS005 ft ft UA ft* 


** UA ftft 


«J 






U 


•'•' ft U A '■'•• ft 


// LISTIO UNITS 






SYS010 


** UA ftft 








// LI STIO F2 


SYS01 1 
SYS012 


** UA ftft 
ftft UA ftft 


CHNL UNIT OWNER 


I/O UNIT CMNT 


MOD 


ft-'-ft FOREGROUND 2 *** 


SYS013 


ftft UA ftft 


OC BG 


SYSRDR 






SYS01 k 


** UA •'••■•'• 


OC BG 


SYS 1 PT 




I/O UNIT CMNT CHNL UNIT MODE 


SYS015 


ftft UA ftft 


OD BG 


SYSPCH 




SYSRDR ft ft UA ft ft 
SYSIPT ft ft UA ft* 




ft ftft FOREGROUND 2 ft ftft 


OE 

IF BG 

IF BG 


ft UA ft 
SYSLOG 
SYS 1 N 




SYSPCH ft ft UA ftft 
SYSLST ft ft UA ftft 


I/O UNIT CMNT CHNL UNIT MODE 


1 OA BG 
1 90 

1 91 BG 
1 91 BG 
1 91 BG 


SYSLST 
ft UA ft 
SYSLNK 
SYSREC 
SYSOOI 




SYSLOG ft ft UA ftft 
SYSLNK ft ft UA ft* 
SYSRES 1 92 


SYSRDR 
SYSIPT 
SYSPCH 


ftft UA .ftft 
ftft UA ftft 
ftft UA ftft 




SYSSLB ft ft UA •••••• 


SYSLST 


** UA ftft 


1 91 BG 


SYS002 




SYSRLB ft ft UA ft-'- 
SYSREC 1 91 


SYSLOG 
SYSLNK 


** UA ftft 
ftft UA ftft 


1 91 BG 
1 91 F2 


SYS003 
SYSREC 






SYSRES 


1 92 


1 91 F1 


SYSREC 




'•ft ft FOREGROUND 2 ft-* ft 


SYSSLB 


ftft UA ftft 


1 92 BG 


SYSRES 




I/O UNIT CMNT CHNL UNIT MODE 


SYSRLB 
SYSREC 


ftft UA ftft 
1 91 


1 92 F2 
1-92 Fl 


SYSRES 
SYSRES 




SYSOOO ft ft UA ftft 




ft ft ••• FOREGROUND 2 ft ftft 


1 80 
1 81 


ft UA ft- 
ft "UA ft 
ft UA ft- 
ft UA ft- 
ft UA ft 




SYSOOI ft ft UA ftft 
SYS002 ft ft UA ft ft 


I/O UNIT CMNT CHNL UNIT MODE 


1 82 
1 83 
1 84 




SYS 003 ft ft UA ftft 
SYS004 ft ft UA ftft 


SYSOOO 


* * u A ft ft- 




SYS005 ft ft UA ftft 


SYSOOI 


ft* UA ft ft- 


U 






SYS006 ft ft UA * ft 


SYS002 


ft ft UA ft* 


// LISTIO UA 






SYS007 ft ft UA * ft 


SYS003 


ftft UA ftft 








SYS008 ft* UA ** 
SYS009 ft ft UA ftft 


SYSOOI 
SYS005 


ft* UA ft ft- 
ft ft UA ft ft- 


ft-'-ft UNASSIGNED 


.-** 




SYS010 ft ft UA ftft 


SYS006 


ft ft UA ft ft- 


CHNL UNIT 






SYS011 ft* UA ftft 


SYS007 


ft ft UA ft ft- 








SYS012 ft ft UA * ft 


SYS008 


ft ft UA ft ft- 


1 80 
1 81 
1 82 
1 83 






SYS013 * ft UA ftft 


SYS009 


ft ft UA ft ft- 






SYSOU ft ft UA ft ft 


SYS010 


ft ft UA ft ft- 






SYS015 ft ft UA ftft 


SYS01 1 
SYS012 
SYS01 3 


ft ft UA ft ft- 








ft* UA ft ft- 
ft,'.- UA ft ft- 


u 






Note: The 1st line of each sample shows the control 


SYSOU 


ft ft UA ft ft- 


// LISTIO DOWN 






statement as it was logged by job control . 


SYS015 


ft ft UA ft ft- 


ftft ft DOWN ftft'- 






1 . List all system units. 




ft •'••••••- FOREGROUND 1 ftftft 








2. List all background programmer units. 






CHNL UNIT 






3. List all foreground 2 units. 


I/O UNIT CMNT CHNL UNIT MODE 








4. List all units. 






ftft NONE -'--ft 






5. List a specific unit (SYSXXX). 


SYSRDR 
SYS IPT 


ftft UA ft ft- 
ft * UA ft ft- 








U 

// LISTIO X@01F@ 






6. List the logical units assigned to all physical 


SYSPCH 


ft ft UA ft ft- 






devices . 


SYSLST 


ft ft UA ft ft- 








7. List all unassigned units. 


SYSLOG 


ft ft UA ftft 


CHNL UNIT OWNER I/O UNIT CMNT 


MODE 


8 . List all down units. 


SYSLNK 


ftft UA ftft 








9. List all logical units assigned to a specified 


SYSRES 
SYSSLB 


1 92 
ftft UA ft ft- 


1 F BG SYSLOG 




physical unit. 










SYSRLB 


ft ft UA ftft 










SYSREC 


1 91 

















Figure 9. Sample LISTIO Printouts 
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APPENDIX E: COMREG AND CCB 



COMREG* 

Displacement 
hexadecimal 

Displacement- 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 







8 
8 


OA 
10 


OC 
12 


17 
23 


18 

24 


20 
32 


24 
36 


28 
40 


2C 

44 


Date 


Address of 
PPBEG 


Address of 
EOSSP 


Problem Program Use 


UPSI 
Byte 


Job Name 


Highest 
Storage 
Address 
of the 
Partition 


End Address 
of Last Phase 
Fetched or 
Loaded 


Address of 
Uppermost 
Byte of Phase 
with Highest 
Ending Address 


Label 
Area 
Length 


XXXXXXXX 


XX 


XX 


XXXXXXXXXXX 


X 


XXXXXXXX 


XXXX 


XXXX 


XXXX 


XX 



2E 
46 


30 
48 


34 
52 


35 
53 


36 
54 


37 

55 


38 
56 


39 
57 


3A 

58 


3B 
59 


3C 
60 


3E 
62 


PIK 
(PID) 


End of 

Storage 

Address 


Machine 

Confg. 

Byte 


System 
Confg. 
Byte 


Standard 

Language 

Translator 

I/O 

Options 


Dump, 
Log and 
ASCII 
Options 


Job 

Control 

Byte 


Linkage 
Control 
Byte 


Language 
Translator 
Control 
Byte 


Job 

Duration 
Indicator 
Byte 


Disk 

Address of 
Label 
Cylinder 


Address 

of 

FOCL 


XX 


XXXX 


X 


X 


X 


X 


X 


X 


X 


X 


XX 


XX 



Job Control Switches 



40 


42 


44 


46 


48 


4A 


4C 


4E 


4F 


58 


5A 


5C 


64 


66 


68 


70 


72 


74 


76 


78 


79 


88 


90 


92 


Address 


Address 


Address 


Address 


Address 


Address 


Address 


Line 


System Date 


LIOCS 


Address of 


ID Number 


of 


of 


of 


of 


of 


of 


of 


Count 




Comm. 


1st Part of 


of Last 


PUB 


FAVP 


JIB 


TEB 


FICL 


NICL 


LUB 


for 
SYSLST 




Bytes 


PIB Table 


Checkpoint 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


X 


XXXXXXXXX 


XX 


XX 


XX 



Displacement 
hexadecimal 

Displacement 
decimal 



5E 
94 


60 
96 


62 
98 


64 
100 


66 
102 


68 
104 


6A 
106 


6C 
108 


6E 
110 


Length of LUB 
ID Queue = 
No. of Channel 
Queue Entries 


Address of 
Disk 

Information 
Block (DIB) 


Address of 
Error 
Recovery 
Block 


Address of 
PC Option 
Table less 
8 bytes 


Address of 
IT Option 
Table less 
8 bytes 


Address of 
OC Option 
Table less 
8 bytes 


Key of 
Program 
with Timer 
Support 


Address of 
the LUBID 
Queue 


Logical 

Transient 

Key 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 



Displacement 
hexadecimal 

Displacement 
decimal 



70 
112 


7C 
124 


7E 
126 


80 
128 


84 
132 


86 
134 


87 
135 


88 
136 


Supervisor Constants 


Address of 
2nd 
Part of 
PIB Table 


Address of 
MICR DTF 
Table 
(PDTABB) 


Address of 
QTAM 
Vector 
Table 


Address of 
BG Comm. 
Region 


Op- 
tion 
Indi- 
cator 


System 
Con- 
figura- 
tion 
Byte 2 


Pointer to 
Comm. 
Region 
Extension 


XXXXXXXXXXXX 


XX 


XX 


XXXX 


XX 


X 


X 


XXXX 



* The address of the communications region is in fixed location X'14' - X' 17". 

Displacement values illustrated can be used to access the listing and/or the key that follows the figure. 
The key offers more detailed information about each area when necessary. 

Figure 10. Supervisor Communications Region (Part 1 of 5) 
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Key to Communications Region Displacements: 



H 

10 







24 



32 



36 



40 



44 



46 



MM/DD/YY or DD/MM/YY obtained from the job control date statement. Format controlled by COMREG + 53 
(System Configuration Byte, date convention bit 0). 

Address of the problem program area. 

Address of the beginning of the problem program area. Y (EOSSP) = Y (PPBEG) if the storage protection option has not 
been selected. Y (EOSSP) equals the first main storage location with a storage protection key of 1, if storage protection 
is supported. 

User area. If seek separation option is specified, bytes 12 and 13 are used at IPL time for the address of the seek 
address block. 

User program switch indicator. 

Job name set by the job control program from information found in the job statement. 

Address of the uppermost byte of the problem program area as determined by the IPL program (Clear storage routine 
determines the address, ENDRD routine of $$A$IPL2 stores it.), or the address of the uppermost byte of the partition 
as determined during processing of the ALLOC statement. 

Address of the uppermost byte of the last phase of the problem program fetched or loaded. The initial value (as shown) 
is overlaid by the first fetch or load to the problem program area. 

Highest ending main-storage address of the phase among all the phases having the same first four characters as the 
operand on the EXEC statement. For the background partition only, job control builds a phase directory of these 
phases. The address value may be incorrect if the program loads any of these phases above its link-edited origin 
address. If the EXEC statement has no operand, job control places in this location the ending address of the program 
just link-edited. 

Length of the problem program label area. 

Program Interrupt Key - PIK (if asynchronous processing is not supported): Value is equal to the displacement from the 
start of the PIB table to the PIB for the task. 

01 
Partition Identifier - PID (if asynchronous processing is supported): Value is hex 10, 20, or 30 to identify the partition 
in which a maintask or a subtask is running. (See the communications region extension, displacement 18, for the PIK 
in an asynchronous processing supervisor.) 

First byte - always zero. 

Second byte - contains the key of the program that was last enabled for interrupts, or the partition identifier in 
an AP supervisor. 





Task 






PIK (PID) Value 




*AII Bound 






X'00' 




BG 






X'10' 




*F2 






X'20' 




*F1 






X'30' 




Attn Rtn 






X'40' 




Quiesce I/O 






X'50* 




Supervisor 






X'60' 




*These tasks do 
Logical end of main 


not exis 
storage 


!• in a non- MPS supervisor 


48 


address. 



Figure 10, Supervisor Communications Region (Part 2 of 5) 
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Key to Communications Region Displacements: 



52 



Machine Configuration Byte (Values set at supervisor generation time.] 



Bit 

1 

2: 
3: 
4 
5: 
6 
7: 



1 = Storage protect feature 

= No storage protect feature 

1 = Decimal feature 

= No decimal feature 

1 = Floating-point feature 

= No floating-point feature 

1 = Physical transient overlap option 

= No physical transient overlap option 

1 = Timer feature 

= No timer feature 

1 = Channel switching device 

= No channel switching device 

1 = Burst mode on multiplex channel support 

= No burst mode on multiplex channel support 
Reserved 



53 



System Configuration Byte 



it 0: 

1 

2; 
3; 
4: 
5: 
6 
7; 



1 = DDMMYYJJ , n . . . . • , rrr, ^^ 

= MMDDYYJ J vDate convention bit set at generation time by 5TDJCJ 

1 = Multiprogramming environment 

= Batch job environment 

1 = DASD file-protect supported 

= No file-protect support for DASD 

1 = DASD SYSIN - SYSOUT 

= No DASD SYSIN - SYSOUT 

1 = Teleprocessing 

= No teleprocessing 

1 = Batch job in foreground 

= No BJF 

1 = Asynchronous processing 

= No AP 

1 = Track Hold 

= No Track Hold 



QD 



BitO: 


DECK option 1 


1: 


LIST option 1 


2: 


LISTX option 1 


3: 


SYM option 1 


4: 


XREF option 1 


5: 


ERRS option 1 


6: 


CHARSET option 1 


7: 


Reserved 



55 



This byte contains the standard language translator I/O options (set by the STDJC macro). 

= yes, output object modules on SYSPCH 

= yes, output source module listings and diagnostics on SYSLST 

= yes, output hexadecimal object module listings on SYSLST (compilers only) 

= yes, output symbol tables on SYSLST/SYSPCH 

= yes, output symbolic cross reference list on SYSLST 

= yes, output diagnostics on SYSLST (compilers only) 

= 48, input on SYSIPT is 48 or 60 character set 

This byte contains the standard supervisor options for abnormal EOJ and control statement display, and the indicator 
for the presence of the ASCII-EBCDIC and EBCDIC-ASCII translation tables. 



1 = yes, dump registers and storage on SYSLST 
1 = yes, list all control statements on SYSLST 
1 = yes, ASCII supported 



BitO 


Always on 


1 


DUMP option 


2 


Reserved 


3 


LOG option 


4-6 


Reserved 


7 


ASCII option 



Figure 10. Supervisor Communications Region (Part 3 of 5) 



220 DOS IPL and Job control 



Key to Communications Region Displacement: 



56 



GO 



Job control byte 

Bit 0: 1 = Job Accounting 

Interface (JA)not supported 

= Job Accounting 

Interface (JA) is supported 
1 : 1 = Return to caller on LIOCS disk open failure 

= Do not return to caller on LIOCS disk open failure 
2: 1 = Job control input from SYSRDR 

= Job control input from SYSLOG 
3: 1 = Job control output on SYSLOG 

= Job control output not on SYSLOG 
4: 1 = Cancel job 

= Do not cancel job 
5: 1 = Pause at end-of-job step 

= No pause at end-of-job step 
6: 1 = SYSLOG is not a 1052 

= SYSLOG is a 1052 
7: 1 = SYSLOG is assigned to the same device as SYSLST 

= SYSLOG is not assigned to the same device as SYSLST 

Linkage control byte 



Bit 0: 

1: 
2: 



4: 



5: 



6: 
7: 



1 = SYSLNK open for output 

= SYSLNK not open for output 

1 = $ or FG program phase deleted, renamed, or cataloged (flag bit for $MAINEOJ) 
1 = Allow EXEC 

= Suppress EXEC 

1 = Catalog linkage editor output 

= Do not catalog linkage editor output 

1 = Supervisor has been updated 

= Supervisor has not been updated 

1 = Executing in AUTOTEST mode 

= Not executing in AUTOTEST mode 

1 = Reallocate or condense in progress 

1 = Fetch $MAINEOJ at end of job to update system directory 
= Do not fetch $MAINEOJ at end of job for update 



58 



59 



Language processor control byte. This is a set of switches used to specify nonstandard language translator options. 
The switches within the byte are controlled by job control OPTION statements and when set to 1 , override standard 
options. The format of this byte is identical to the stnadard option byte (displacement 54) with one exception: 
Bit 7 in this byte is used to indicate to LIOCS that the rewind and unload option has been specified. 

Job duration indicator byte 

Bit 0: 1 = Within a job condition 

= Outside a job condition 

1 : 1 = Dump on an abnormal end-of-job condition 

= No dump on abnormal EOJ 

2: 1 = Pause at EOJ step ) rlA . n . r . i ^ i 

r» _ m L cr\ } 5et by Attention Routine For Job Control 

= No pause at EOJ / ' 

3: 1 = Job control output on SYSLST 

= Output not on SYSLST 
4: 1 = Job is being run out of sequence with a temporary assignment for SYSRDR 

= Conditions for 1 setting not met 
5: 1 = PCIL h being condensed 

= PCIL is not being condensed 
6: Reserved 
7: 1 = Batch command just issued 

= Condition for 1 setting did not occur 



Figure 10. supervisor Communications Region (Part 4 of 5) 
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Key to Communications Region Displacements: 



601 Binary disk address of the volume label area (label cylinder). 

62 > I 761 As illustrated (Figures for information blocks, I/O tables, and pointers 

begin at Figure 21 which refers to. more detailed Figures). 





79 



90 



92 



Set to the value nn specified in the LINES = nn parameter of the STDJC macro. 

The format of the system date contained within this field is determined by the IPL program from information supplied in the 
date convention byte (displacement 53). Bytes 85- 87 contain the day count. 

Bytes reserved for use by LIOCS. Transient dump programs insert a key to indicate to the LIOCS end- of- volume routine, 
SSBCMT07, that it was called by a B- transient. 

Address of the first part of the program information block (PIB) table. (See Figures 18 and 19). 

ID number of the last checkpoint. Temporary indicator of file protected DASD. Used at IPL time, when DASDFP 
is specified. 

Length of the LUBID queue (in bytes). This equals the number of channel queue entries. It can also be used to access the 
REQID, LUBDSP, and TKREQID queues: (See Figure 17- GY24-5151). 

Address of disk I/O position data. This is the starting address of the disk information block (DIB) table (See Figure 17). 

Address of the beginning of the error recovery block. The error recovery block contains addresses of error recovery exits, 
error recovery queue information that can be used by physical transients routines, and defines storage for the error queue 
entries (See Figure 43- GY24- 5151). 

[l00| — ► |l04| Option Tables. (See Figure 13 - GY24- 5151). 

1106 Key of the program (BG, F2, or Fl) that has timer support. 

Address of LUBID queue. (See Figure 17- GY24-5151). 



94 



96 



98 



108 



110 



112 



124 



126 



128 



132 



134 



135 



136 



Logical Transient Key (LTK) contains the same value as the PIK (PID) (Displacement 46) when the logical transient is 
requested. When the transient area is not in use, LTK is equal to zero. The SVC 2 routine sets the LTK. The SVC 1 1 
routine resets the LTK. 

Supervisor constants: 

DOLLARBO (4 bytes) = C'S$BO' 

SSKADR (5 bytes) = XL5'0' 

LTAREA (3 bytes) = Adcon of LTSVPT, logical transient save pointer 

Address of second part of program information block (PIB) table (See Figure 20). 
Address of PDTABB, table of DTF addresses for MICR support. 
Address of QTAM vector table (IJLQTTAD). 
Address of background communications region. 

Option Indicator Byte 

Bit 0: 1 = MCRR indicated for OBR writer 

= No MCRR indicated for OBR writer 
1: 1 = EU interface active 

= EU interface not active 
2: 1 = TP request 

= No TP request 
3: 1 = Supervisor support for only 9- track tape 

= Supervisor does not support 9- track tape exclusively 
4: Reserved 
5: 1 = RETAIN/370 support generated 

= RETAIN/370 support not generated 
6-7: Reserved 

System Configuration Byte 2 

Bit 0: 1 = PCIL supported 

= PCIL not supported 
1 - 7: Reserved 

Pointer to communications region extension (See Figure 11). 



Figure 10. Supervisor Communications Region (Part 5 of 5) 
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BGXTNSN (See Note) 



(Hexadecimal 
Displacement) 

(Decimal 

Displacement) 


4 
4 


8 
8 


OC 
12 


10 
16 


12 
18 


14 
20 


18 
24 


1C 
28 


20 
32 


CE Table 
Address 


Track Hold 
Table Address 
(THTABAD) 


Difference 
Between 1st 
and 2nd Part 
of PIB Table 
(PIBDIFF) 


AB Termin- 
ation Table 
Address -8 
(ABPTR) 


ID of 

Task 

Owning 

LTA 

(LID) 


ID of 
Task 
Running 
(PIK) 


Task Re- 
quester ID 
Table Address 
(TKIDPTR) 


Address 
Used by 
QTAM 
(MVCFLD) 


SDR Table 

Address 

(SDRTABLE) 


TEBV 
Table 
Address 
(TEBVTAB) 


XXXX 


XXXX 


XXXX 


XXXX 


XX 


XX 


XXXX 


XXXX 


XXXX 


XXXX 



24 (Hexadecimal 


28 


2C 


30 


34 


38 


3C 


Displacement) 














36 (Decimal 


40 


44 


48 


52 


56 


60 


Displacement) 














OLTEP 


RMS 


ASCII-EBCDIC 




JAI Common 


JAI Partition 


&SYSPARM 


Linkage 


Linkage 


Translation 


(Reserved) 


Table Address 


Table Address 


Field 


Address 


Address 
(RASLINK) 


Table Address 




(ACCTCOMN) 


(ACCTxx) 


Address 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 



Key to displacements : 
| | CE Table Address. 
| 4 | Track Hold Table Address (THTABAD). 

I 8 J Difference between addresses of first part of PIB table and second part of PIB table (PIBDIFF). 
12 Abnormal Termination Table Address (minus 8) (ABPTR). 







16 J Identification (LID) of the task owning the Logical Transient Area. Contains same value as PIK (displacement 18) when LTA is in use. 
Contains zero when LTA is not in use. 

18 Program Interrupt Key (PIK) if asynchronous processing is supported. Value is equal to the displacement of the start of the PIB table 

' ' to the PIB of the main task or subtask being selected (running). 

First byte - zero 

Second byte - contains the displacement into the PIB table for a maintask or a subtask. 
Maintask - PIK value is hex 10, 20, or 30. 
Subtask - PIK valve is hex 70, 80, 90, . . . F0. 



20 



24 



28 



32 



36 



Task Requester ID Table Address (TKIDPTR). 
MVCFLD address used by QTAM. 
Statistical Data Recorder Table Address (SDRTABLE). 
Tape Error Blocks by Volume Table Address (TEBVTAB). 
Pointer to OLTEP Linkage Addresses 



H 



40 | RMS Linkage Area Address (RASLINK) 
| 44 | ASCII-EBCDIC Translation Table Address. 
J 48 J (Reserved) 

JAI Common Table Address (ACCTCOMN) 

JAI Partition Table Address (ACCTxx; where xx = BG, F2, or Fl). 
60 Address of &SYSPARM Field. 



52 



56 



Note ; If communications regions are generated for the foreground partitions, the labels in those extensions will be F2XTNSN 
and F1XTNSN. The extensions, wherever used, are generated by the COMMNEX macro. Following the background 
extension (and immediately preceding the MCRR Linkage Table) is a six-byte area. The first four bytes are the address of 
the background save area (BGSAV), and the last two bytes are the value 4,096, used to restore base registers. 



Figure 11. Background Communications Region Extension 
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(SDR 
TABLE) 

SDR 
Flags 



1 

Parti- 
tion 
ID 



2 3 

Number 
of SDR 
Records 



10 



First SDR ID 
BBCCHHR 



11 



17 



First OBR ID 
BBCCHHR 



18 



24 



Current OBR I 
BBCCHHR 



25 



31 



Last OBR ID 
BBCCHHR 



32 



35 36 



Address of 

SDR 

Accumulator 



39 40 



Address of 
SDR Unit 
Switches 



43 44 



Reserved 



71 



List Save Area 



72 



75 



76 



95 



Mask 
Bytes 



SDR1 Work Area 



96 



103 



Test Under 
Mask Table 



104 



107 



Temporary 
Work Area 



108 



111 



Test Under 

Mask 

Instruction 



112 



115 



F'65536' 



116 



117 



SDR Queue 
Save Area 



118 



135 



SDR2 Work Area 



136 



155 



Area Modified by A -Transients 



156 



159 



SDR Error 
Message 
Save Area 



160 



163 



Branch 
Instruction 



164 



167 



OBR/SDR 
Flag Byte 
Address 



168 



Data Area for OBR/SDR Records 



250 





Key 


to SDR Communications Region Displacements: 


a 


SDR Flags: 




Bit 0: Key of OBR Bit 4: RF option = CREATE 
1: RDE option 5: RF option = YES 
2: Initial IPL time 6: Error while recording 
3: RF option = NO, recording is suppressed 7: Recorder file ready 




Set and tested by Job Control. 


□ 


Set by EREP transient $$BSDRUP to identify the partition making the call for EREP recording. 




Settings: X'10' if EREP is running in BG . 
X'20' if EREP is running in F2. 
X'30' if EREP is running in Fl . 

X'OT with one of the above if recorder file is ready. 
X'00 1 with one of the above if recorder file is not ready. 





Initial number of SDR records specified . If SDR record count is not specified, the file is formatted for OBR records only 
($JOBCTLM, see Chart 14) 


a 


Disk address of first SDR record. 





Disk address of first OBR record. 


R 


Disk address of current OBR record. 




25 


Disk address of last OBR record . 



Figure 12. SDR Communications Region - SDRT ABLE (Part 1 of 2) 
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Key to SDR Communications Region Displacements: 



32 



36 



40 






104 



112 
116 
118 
136 
156 
160 
164 
168 



Address of SDR accumulator area which contains half -byte counters and accumulated error conditions. 

Address of SDR unit switches . 

SDR switch byte (1 for each PUB): 

X'80' - Update operations complete 

X'40 1 - Counters on external file overflowed 

X'20' - I/O error during write 

X'08' - SDR update half- byte counters routine required 

X'04' - Update SDR record routine required 

Other - Reserved 

When entry contains X'01000000', indicates MCRR, no SDR supported. 

Reserved . 

SDR1 register save area. 

Mask formats for interpretive error accumulator, SDR1: 

X'FF' - End of update 

X'FE' - Bypass counter 

X'FD 1 - Set up 'OR 1 condition to previous counter 

X'FC - Ignore list item 

Other - Test bit in error queue 

Used by the Interpretive error accumulator routine to process list passed by OBR/SDR A -transient. 

Used by the interpretive error accumulator routine. 

Used by the interpretive error accumulator routine for address alignment. 

Executed by the interpretive error accumulator routine. 

Loop counter for the SDR counter update . 

Save area for pointers to entries in the SDR error queue. 

Work area where half byte error counters are unpacked and updated. 

List of devices passed to the SDR processor and $$ANERAD. 

Used by SDR/OBR recorder phases to pass error message displacements and disk error addresses in event of an error. 

Entry point from OBR/SDR A -transients . Branches to label SDRMM. 

Pointer into the OBR/SDR unit switches. Status posted by recorder phases. (See byte 36). 

OBR and SDR records formatted by the recorder phases. 



Figure 12. SDR Coiranuni cations Region - SDRTABLE (Part 2 of 2) 



Appendix E 225 



to 
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ON 
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Bytes 

Used for- 




Transmission 
Information 



CSW Status Bits 



Symbolic Unit 
Address 
6 7 



Reserved for 
Logical IOCS 



CCW Address 
9 11 



Reserved for 
Physical IOCS 
12 



CCW Address 
in CSW 
13 15 



Optional 
Sense CCW 



16 



Residual Count 



Transmitting 
Information 
Between Physical 
IOCS and 
Problem Program 



1 (Note 1) 


^^ ^ - _^ 1 


1 Byte 4 


Byte 5 """*"--».» .J 


| BIT DESIGNATION 


BIT DESIGNATION J 


I 32 Attention 


40 Program -controlled 


| 33 Status modifier 


interruption . 


1 34 Control unit end 


41 Incorrect length ( 


1 35 Busy 


42 Program check I 


| 36 Channel end 


43 Protection check 1 


1 37 Device end 


44 Channel data check ' 


1 38 Unit check 


45 Channel control check ' 


39 Unit exception 


46 Interface control check . 


k^ 


47 Chaining check , 


-x. | 



Hexadecimal 
Representation 
I of SYSnnn 

SYSRDR =0000 
SYSIPT =0001 
SYSPCH = 0002 
SYSLST = 0003 
SYSLOG = 0004 
SYSLNK =0005 
SYSRES = 0006 



SYSSLB 
SYSRLB 
SYSUSE 
SYSREC 
SYSCLB 
SYS000 
SYS001 
SYS221 



= 0007 
= 0008 
= 0009 
= 000A 
= 000B 
= 0100 
= 0101 
= 01DD> 



Buffer Offset: 
ASCII Input Tapes 
X'OO'-X^' 

ASCII Output 
Tapes Fixed: 
X'00' 

Variable: X'00'or 
X'04' 

Undefined: X'00' 



Address of CCW 
Associated with 
this CCB 



X'80'-CCB being 
used by ERP 

XMO'-Channel 
Appendage 
Routine Present 
for Teleprocessing 
Device 

X'20'- Sense 

Information 

Desired 

X' 10' -Message 
Writer 



X'08'- 
Error 



EU Tape 



X'02 , -Tape ERP 
Read Opposite 
Recovery 

X'Ol'-Seek 
Separation or 
Console Buffering | 



Address of CCW 
in the CSW 
Stored at 
Channel End, 
or Address of 
the Channel 
Appendage 
Routine for 
Teleprocessing 
Devices 



J3J 



8 Bytes 
Appended to the I 
CCB when Sense I 
Information is 
Desired 



Byte 2 

















Return Tape Read 






Traffic Bit 
(Wait) 


End-of-File 
(/*or/«) 

UCSB Parity 
Check (Line 
Complete) 


Unrecoverable 
I/O Error 


Accept 

Unrecoverable 

I/O 


Return DASD 
Data Checks 
2671 errors, or 
1017/1018 
errors to the 
user 


Post at 
Device End 


Data Check, 1018 
Data Check, 2540 
or 2520 Equipment 
Check, DASD 
Data Checks on 
Read or Verify 
Command, or 321 1 


User Error 
Routine 




(Note 5) 


(Note 2) 








(Note 5) 


Passback Requested 
(Notes 3 & 6) 









1 


2 


3 


4 


5 


6 


7 




On By-*- 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. | 











Byte 


3 










DASD- 


DASD- 


DASD - 


2540, 2520- 


Non -Recovery 


No -Record - 


Carriage 


Command 




Data Check in 


Track Overrun 


End of Cylinder 


Equipment Check 


Questionable 


Found Condition 


Channel 9 


Chaining 




Count Area 


MICR- 


MICR- 


Tape- 


Condition: 


(Retry on 2311, 


Overflow or 


Retry from 




MICR- 


Intervention 


(Note 4) 


Read Data Check 


Card- 


2314, or 2319) 


Verify Error 


the next CCW 




SCU Not 


Required 


1287/1288- 


DASD- 


Unusual 




for DASD 


to be executed 




Operational 


1285/1 287- 


Hopper Empty 


Any Data Check 


Command 










1285/1287/1288 


Key board 


in Document 


1285/1287 


Sequence 




1287 Document 






Data Check 


Correction in 
Journal Tape 


Mode 


Equipment Check 
1017/1018 


DASD- 
No Record Found 




Mode - Late 
Stacker Select 






Print Check/ 


Mode 


Line Position 


Data Check 


1285/1287/1288- 










Equipment Check 


1017- 


Error 




Document Jam 




1288 -End of 








Broken Tape 


(Note 7) 


Print Check/ 
Data Check 


or Torn Tape 




Page 








Print Quality/ 






UCSB Parity Check 












Equipment Check 






(Command Retry) 








Bits *- 





1 


2 


3 


4 


5 


6 


7 


Set On By-*- 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


PIOCS 


Pr. Pr. | 



PIOCS = Physical IOCS 

Pr. Pr. = Problem Program 
Note 1 . Bytes 4 and 5 contain the status bytes of the Channel Status Word (Bits 32-47). If byte 2, bit 5 is on and device end results as a separate interrupt, device end will be ORed into CCB byte 4. 
Note 2 . Indicates /* or /& statement encountered on SYSRDR or SYSIPT . Byte 4, bit 7 (unit exception) is also on . 
Note 3. DASD data checks on count not returned. 

Note 4. For 1255/1259/1270/1275/1412/1419, disengage. For 1275/1419D, I/O Error in external interrupt routine (channel data check or busout check). 
Note 5. The traffic bit (Byte 2, bit 0) is normally set on at channel end to signify that the I/O was completed. If byte 2, bit 5 has been set on, the traffic bit and bits 2 and 6 in byte 3 will be set on 

at device end. Also see Note 1 . 
Note 6. 1018, ERP does not support the Error Correction Function. 
Note 7. This error occurs as an equipment check, data check, or FCB parity check. 



APPENDIX F; I/O TABLES 



PUB- TABLE 



PUBTAB 




Channel 



Unit 



Channel Queue Pointer 



TEB & TEBV Pointer or Error Count 



Device Type 



Device Characteristic Code or SAB Pointer 



Channel Scheduler Flags 
Job Control Flags 



BYTE 6 
Bit 



0: 
1: 
2: 

3: 
4: 
5 

6 

7 

BYTE 7- 



- Device busy 

= Switchable device 

= EOJ for SYSRDRor SYSIPT 

= I/O error queued for recovery 

= Operator intervention required 

= Device end posting required 

= Burst device on MPX 

= 7 -track tape unit 



Bit 0-4: standard MODE assignment for 7 -track tape 
(all ones if not tape, all zeros if device is 
down). 
5: device is assigned to a background job 
6: device is assigned to a foreground 1 job 
7: device is assigned to a foreground 2 job 



BYTE0- Channel number. (Hex 0-7, FF=NULL) 

BYTE 1 - I/O device unit number. (HEX IF =1052, 
HEX 80 = magnetic tape unit . . .). 

BYTE 2 - HEX 0, 1 , 2, . . . points to the first 
channel queue entry for this device. 

BYTE 3 - If device is a magnetic tape unit* and TEBs and/or 
TEBVs are specified, this byte is a TEB/TEBV 
pointer (HEX 1, 2, 3 . . .). 

If device is a magnetic tape unit* but neither TEBs 
nor TEBVs are specified, this byte is an error 
counter. 

If device is not a magnetic tape unit*, this byte 
is an error counter. 

BYTE 4 - See Supervisor and Transients PLM. 

BYTE 5 - SS of the MODE=parameter in the DVCGEN macro for a tape unit. 
See Supervisor and Transients PLM for magnetic tape density data . 

For DASD with seek separation, thi$ byte is used as the SAB 

pointer. With track hold but not seek separation supported, this 

byte contains a pointer to the Track Hold Table entry of X'FF' 

(with both SKSEP and TRKHLD specified, the track hold pointer 

is found in the SAB entry). 

For MICR devices, this byte indicates the external interrupt line is in use. 

NOTE: A null PUB is generated for each device to be supported by the supervisor. 

Standard physical unit assignments are made to the PUB table at supervisor generation time . PUBs are ordered by 
channel and priority within a channel . 

Bytes 64 and 65 (X '40' - '41 ') of the communications region contain the address of the PUB table entry . 
Label PUBTAB identifies the first byte of the table. 

*2400 series or 3420 Magnetic Tape Units or 2495 Tape Cartridge Reader (TEBs); 2400 series or 3420 Magnetic Tape 
Units only (TEBVs) 



Figure 14. PUB Table 
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H 




ui 


H 


• 


»d 
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H 
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PJ 


H 


13 





Oi 


H 






IT* 




CJ 




td 




1-3 




V 




cr 




H 




fl> 




eo 



Number jn 
Class List 
(NICL) 



LUB Table 



First 

Class List 
(FICL) 




BG 

System 

LUBs 

BG 

Programmer 

LUBs 


-*-L 


F2 

System 
LUBs 

F2 

Programmer 

LUBs 


F1 

System 
LUBs 

F1 

Programmer 

LUBs 



SYS 



BG 



F2 



f- F1 



LUB Table for any Partition 

!SYSRDR 
SYSIPT 
SYSPCH 
SYSLST 
© SYSLOG 
SYSLNK 
SYSRES 
SYSSLB 
SYSRLB 
® SYSUSE 
SYSREC 
SYS000 
SYS001 
SYS002 
SYS003 
SYS004 

® SYS221 

(D SYSCLB F1 
F2 
BG 



i * '[ ______ 



00000000 - Points to first PUB 
1 - Points to second PUB 
1 - Points to third PUB 



1 1 1 1 1 1 1 - Ignore 

1 1 1 1 1 1 1 1 - Null Pointer, the LUB is Unassigned 

When a logical unit is assigned, the system inserts a 
pointer to the PUB for the physical device specified. 



[Format of Any LUBj 



ByteO 



PUB Pointer 



Bytel 



JIB Pointer 



mm* 



JIB Index (Multiply by 4 = displacement into JIB Table) or X'FF' = Null 
Pointer, no JIB for this LUB 

A LUB has a JIB pointer when: 

1. The logical unit is temporarily assigned. 

2. The logical unit assignment is alternate (ALT). 

3. A DASD file (except a system I/O file on disk) is opened. 



Bytes 76 and 77 (X'4C - '4D') of the communications region contain the address of the LUB table entry. 
Label LUBTAB identifies the first byte of the table. 



(J) When in Single Program Initiation mode (Foreground 1 or 2): Must be unit record device and can be referenced by the program. 

© When in Single Program Initiation mode (Foreground 1 or 2): Can be referenced by the program. 

© SYSUSE may be called SYSCTL in error recovery messages, 

® The maximum number of programmer logical units in the system is 222 if MPS = BJF, or 244 if MPS = YES or NO. 

© The SYSCLB (Private Core Image Library) LUB entry functions the same as other LUB entries, but is not part of the LUB Table. To locate the SYSCLB LUB in supervisor, perform the 
following steps: 

1. Divide the PIK by 8. 

2. Subtract the result in step 1 from the address of the PIB extension block. 

3. If option AP = YES, the result of step 2 is the location of SYSCLB LUB. If option AP = NO, add 16 (for the all-bound PIBX) to the result of step 2. 



TEB Table 



TEBTAB 



TEB 1 




TEB 2 




i;f f : I ; ; { ;S: ;f ;■ ; | ni ;:-:;•;■; r : : y : : :| ; ^e^f ;;^Fm;1: ; ;; •; :; f p ]|;i:: "f |;;|1f |;1 1 j 1: ij-;; 


HI 


TEB 4 




TEB 5 




TEB 6 








Byte 

- Error recovery retry count. 

1 - Permanent data check read error count. 

2 - Number of times the read data check error routine is entered. 

3 - Number of times the write data check error routine is entered. 

4 - Write skip (erase gap) count. 

5 - Noise record count. 



One TEB is generated for each 2400 series or 3420 magnetic tape or 2495 Tape Cartridge Reader unit if the FOPT macro contains 

the TEB - n parameter. Job control resets each TEB at normal or abnormal End-of-Job. An unused TEB contains HEX'FF0000000000'. 

A TEB is referenced from byte 3 of a magnetic tape unit PUB. 



Bytes 70 and 71 (X'46 , -'47') of the communications region contain the address of the TEB table entry. 
Label TEBTAB identifies the first byte of the table. 



Figure 16. Tape Error Block (TEB) 
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SYSLNK 
SYSIN 
SYSPCH 
SYSLST 

Number 
of Bytes 



Current Address 


End Address 


R 


ILL. 


L.L. 




R.C. 


Reserved 


B 


B 


C 


C 


H 


H 


R 


P 


. 


i 


i i i 


i i 
































B 


B 


C 


c 


H 


H 


R 


K 


D 


D 


B 


B 


C 


C 


H 


H 


X 


H 


H 




XX 


XX 










































































































- 3 - 








-•!** 


**1** 


-*!*• 


^- 2 
























*" 




u 








**"l *" 




"* A *- 



KEY: Current Address: The next address to be used (for both input and output). 



End Address 

R 

U.L. 

L.L. 

R.C. 



P 
KDD 



-.The last address within the limits of the extent. 

•.Maximum number of records per track. 

: Upper head limit. 

: Lower head limit. 

: Record Count - residual capacity for beginning of operator notification . This is set at system 
generation time with the SYSFIL parameter, or after IPL with the SET statement (RCLST and/or 
RCPCH operands). A warning message is issued by job control after end -of -job step when the 
minimum number of remaining records has been reached or exceeded during the previous job. 

: Starting cylinder of Private Core Image Library, if PCIL is assigned. 

: Key and data length for the symbolic device. 



KDD for SYSIN = X'000050' 
KDD for SYSPCH = X'000051 ' 
KDD for SYSLST =X'000079' 

Bytes 96 and 97 (X'60 1 - '61 ') of the communications region contain the address of the SYSLNK entry. 
Label DSKPOS identifies the first byte of the table . 

Figure 17. Disk Information Block (DIB) Table 
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PIB 


TABLE 




















Byte 
Number 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


= 16 
Byte 
Length 




































All 

Bound 

PIB 


Flag 
Byte 
See A 


Reserved 


SP P 


refix 


Brar 


ich Instruction to 
All Bound Routine 


rhe 








Reserved 










Problem 


Flag 








NOP 








Number 








PIB 


User 


Number 


Flag 




Program 


Byte 




SYSLOG ID 


Instruct- 


Address of the 


of Core 


Address of the Origin 


Assign 


LUB 


of 


Byte 




PIB 


See B 


(Fig. 31) 


(BG, F2, or Fl) 


ion 


Partition Save Area 


Blocks 


of the Partition 


Flag 




Program 


SeeC 




(Note 1 ) 


* 






(CR) 








(Note 2) 








See D 

* 




LUBs 


* 




Attention 
PIB 


Flag 

Byte 

See E 
* 


Cancel 
Code 


SYSLC 
(A 


}G ID 


Branch 
Code 


Active=Address of 
Save Area 


Switch 

Byte 
See F 


Logical Transient Bucket 
(contains save 


X'07' 

See D 


Reserved 


Address of 
the Logical 




(Fig. 31) 


*) 


(BC) 


Inactive 


; = Remainder of 
BC Instruction 


area address) 






Transient 




Quiesce 
PIB 


Flag 
Byte 

See A 

* 


Cancel 

Code 

(Fig. 31) 


c« 


/&' 


Br 
Q 


anch Inst 
uiesce 1/ 


ruction t 
O Routin 


e 


Scratch 

Byte 
X'OO' 


X'OO' 


Channel PUB Table Index Val 
X"04' X'08' X'OO X'10' 


jes 
X'14' 


X'18" 




Supervisor 
PIB 


Flag 
Byte 

See A 

* 


Cancel 

Code 

(Fig. 31) 


SP Pr 


efix 


Br 
G 


anch Inst 
eneral E> 


ruction t 
<it Routin 


3 

e 


Add re 
SYSRE 


ss of 
S PUB 


Length 
Queue 


of Error 
Entry 


Constants to Clear Bytes 
2-5 of CCB 

X'lF* X'05' X'OO 1 X'OO' 




Subtask 
PIB for AP 
(Note 3) 


Flag 
Byte 
See B 


Cancel 

Code 

(Fig. 31) 


SYSLCK 

(bg, f: 


3 ID 
>, or Fl) 


NOP 
Instruc- 
tion 


Ad 
c 


dress of t 
>ave Arec 


he 


Number 
of Core 
Blocks 
(Note 2) 


Ad 
Or 
Mo 


dress of the 
igin of the 
in Task 

1 


PIB 

Assign 

Flag 

See D 

* 


User 
LUB 
Index 


Number 

of 
LUBs 


Flag 
Byte 
SeeC 

* 





{Background PIB 
Foreground 2 PIB 
Foreground 1 PIB 
When a batch-only environment is established at generation time, the All Bound and Foreground PIBs are excluded from the table, and only 
one (BG) problem program PIB is built. However, the X'20' bytes that F2 and Fl PIBs normally occupy (between PIBBG and PIBAR) are 
filled with 32 bytes of DIBs data. 

Note 2: Number is in multiples of 2K for F2 and Fl . BG is always 1 OK (X'OA 1 ) . 

Note 3: Total of nine subtask PIBs are generated, and only when AP is specified at generation time. 

* See Figure 14 for flag byte expansions A, B, C, D, E and F. 

Bytes 90 and 91 (X'5A' - '5B') of the communications region contain the address of the first part of the PIB Table. Label PIBTAB identifies the first 
byte of the table. 



Figure 18. First Part of PIB Table 
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gn Flag 
= SYSRES DASD file protect inhibited (allow write 


A 


Supervisor, Quiesce, and ALL Bound PI B Flags: 


D 


PIB Ass* 




Bit 0: 


1 = Always one 




X'80' 


1-4; 


- Always zero 


operation on SYSRES) 


5: 


1 = Always one X'40' 


= Channel appendage exit allowed (BTAM) 


6: 


1 = Active X'20' 


= Cancel in progress (used in terminator function) 




= Inactive X'10' 


= Cancel control (set on a foreground cancel) 


7: 


1 = Active X'08' 


= Hold- Release flag for foreground assignments 




= Inactive X'07' 


= Supervisor or Attention routine PIB assign flag setting 




X'04' 


= Background program PIB assign flag setting 


Note: 


If PTO = YES is specified, Bit 6 is a one in the X'02' 


= Foreground 1 program PIB assign flag setting 




Quiesce I/O PIB when attached by the super- X'OT 


= Foreground 2 program PIB assign flag setting 




visor. Otherwise it is always zero. J J 








E Attention PIB Flag 






B 


Problem 


Program PIB Flag (First Byte in PIB): ' ' 








Bit 0: 


1 = Registers stored 






Bit 0: 


1 = Registers stored 


= Registers not stored 




= Registers not stored 1-5: 


= Always zero 


1-3: 


= Always zero 6: 


1 = Attention routine active 


4: 


1 = QTAM Wait active 


= Attention routine SVC 2 -bound 




= QTAM Wait inactive 7: 


1 = Active 


5: 


= Normal execution 


= SVC 7- bound 




1 = Program has seized the system X'80' 


indicates the attention routine is not present in the system. 


6: 


1 = Unbound X'89' 
= SVC 2 -bound (B- transient in progress) 1 J 


indicates the program is IDRA bound 


7: 


1 = Unbound | F | Attention PIB Switch Byte 




= SVC 7- bound (waiting for an I/O interrupt) 




X'80' 


indicates the program is not present in the system Bit 0- 


■2: Reserved 


X'87' 


indicates the program is PTO bound 


3: 1 = PTAFTCH (Fetch $$ANERRY, Z, or 0) Switch ON 


X'89' 
1 1 


indicates the program is IDRA bound 


= PTAFTCH (Fetch $$ANERRY, Z, or 0) Switch OFF 
4: 1 = Detach Logical Attention Routine ($$BATTNA) 


C Problem 


Program PIB Flag (Last Byte in PIB): 


Switch ON 
= Detach Logical Attention Routine ($$BATTNA) 


Bit 0: 


1 = Batched Job in Foreground 


Switch OFF 




= No BJF 


1 = Physical Attention Recall Switch ON 


1: 


Cancel in LTA and Device not Assigned 


= Physical Attention Recall Switch OFF 


2: 


1 =/&on SYSIN if DASD 


1 = Attention Request Switch ON 




= No/&on SYSIN 


= Attention Request Switch OFF 


3-4: 


Reserved 


1 = External Interrupt Request Switch ON 


5: 


1 = Task is canceled 
= Task not canceling 


= External Interrupt Request Switch OFF 


6: 


1 = Subtask (s) attached 
= No subtasks attached 




7: 


1 = In AB Routine 

2 = Not in AB Routine 





Figure 19. PIB Flag Expansions 
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Byte ^^ 
Number ^^r 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 
















H'16' 


















All Bound 
PIB 






Reserved 






Priority of 
All Bound 
PIB 




Reserved 




H'O' 

All Bound 

PIB 


Reserved 
















( Lowest) 
I 










Displacement 
I 








Address of 










1 
Priority of 

BG PIB 










I 
X'0010 






Background 


BG Comm. 


System 


Reserved 


Address of Termination 


BG PIB 


Reserved 


PIB 




LUB Index 






ECE. if anv. or F'O' 








Region 
| 










© 










Displacement 
I 








I 
Adress of 










1 










I 






FG2 


Area Comm. 


System 






Priority of 


Address of Termination 


X'0020' 






PIB 

© 


Region 


LUB Index 


Reserved 


F2 PIB 

© 

1 


ECB, if any, or F'O' 


F2 PIB 


Reserved 


© 


















Displacement 
I 








I 
Address of 










1 










I 






FG1 


Area Comm. 


System 






Priority of 


Address of Termination 


X'0030' 






PIB 

© 


Region 


LUB Index 


Reserved 


F1 PIB 


ECB. if any. or F'O' 


F1 PIB 


Reserved 


© 










© 
I 










Displacement 
I 








| 










I 
H'3' 










I 






Attention 


Address of 










Priority of 










X'0040' 






PIB 


BG Comm. 








Reserved 


Attention 


F'O' 


Attention PIB 


Reserved 


Regio 


n 










PIB 
| 










Displacement 
I 




















I 
H'2' 










I 






Quiesce 














Priority of 










X'0050' 






I/O PIB 




Reserved 




Quiesce 


F'O' 


Quiesce PIB 


Reserved 
















I/O PIB 










Displacement 
I 




















I 
HT 










I 




















Priority of 










X'0060' 






Supervisor 




Reserved 




Supervisor 


F'O' 


Supervisor 


Reserved 


PIB 














PIB 










PIB 


















(Highest) 










Displacement 
I 






Subtask 


Address of 










I 
Priority of 










PIB 






PIB 


Area Comm. 


System 


Reserved 


Subtask 


ECB Address for 


Displacement 


Reserved 


© 


Region 

I 


LUB Index 

I 


| 


© 

I 


Subtask, or F'O' 


of Maintask 
I 


| 



= 16 
Byte 
Length 



(T) Generated only if MPS is specified. 

(5) Always background communications region except when MPS=BJF. 

(3) Total of nine subtasks generated, and oniy when AP is specified. 

@ Is filled in with halfword indicating the relative priority of task in the system (range H'4' to H'15', the lower the number the 
higher the priority). 

Bytes 124 and 125 (X'7C - '7D') of the communications region contain the address of the second part of the PIB table. Label 
PIB2AD identifies the first byte of the table. 

Figure 20. Second Part of PIB Table 
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r t t t 1 


| Decimal 


1 




1 1 


JDisplace- 


1 


Byte 


1 


j ment 


Label 


Length 


Description | 


L _ _J -.- - - 1 -J. - --: - - - ■ ■ - . . 1 


r 

| (TEBV 


i 

Status Block portion of TEBV Table, see Note 1) | 


1 o 


TEBLEN 


1 


| Length of TEBV Error Block (for each Error Block | 
generated) | 


1 1 


TSBLEN 


1 


Length of TEBV Status Block (4, 6, or 22 bytes, | 
see Note 1) | 


1 2 


EVARTH 


1 


EVA Read Error Threshold | 


| 3 


EVAWTH 


1 


EVA Write Error Threshold | 


1 * 


TEBSTAT 


l" 


DASD ESTV File Status | 


| 5 


TEBUDC 


1 


ESTVFLE Label Update Counter | 


1 ^ 


TEBDEV 


1 


Data Set Device Code | 


1 7 


UPXTNT 


4 


| Disk Address of Upper Extent of Data Set (cchh) | 


1 11 


TEBRPT 


1 


Number of Records per Track j 


1 12 


NXTESR 


5 


! Disk Address of Next Available Space for Data | 
Record (cchhr) | 


1 17 


ESTVLABL 


5 


Pointer to ESTVFLE Label in VTOC (cchhr) | 


| (TEBV 


Error Bloc) 


c portic 


>n of TEBV Table, see Note 2) 1 


| 22 


TEBV 


1 


Status Indicator (giving status of posting and j 
writing error conditions) | 


| 23 




1 


Usage Indicator (X*00 ,= TEBV Error Block in use, | 
X , FF'=Error Block generated but not serving | 
any tape unit) j 


| 24 




1 


Retry Counter j 


1 25 




1 


Permanent Read Errors j 


1 26 




1 


Temporary Read Errors | 


1 27 




1 


Temporary Write Errors j 


| 28 




1 


Erase Gaps | 


| 29 




1 


Noise Blocks j 


| 30 




1 


Permanent Write Errors j 


1 31 




1 


Cleaner Actions j 


| 32 




2 


Number of Start I/Os | 


| 34 




6 


Volume Serial Number (volume ID) | 


| 40 (re 


speat bytes 


22-39 : 


:or each TEBV Error Block) | 



Figure 21. TEBV Table Showing Status Block and Error Blocks (Part 1 of 2) 
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Note 1 : The TEBV (Tape Error Block by Volume) 
Table is composed of one Status Block and (n) Error 
Blocks, and is addressed symbolically by label 
TEBVTAB. 



Supervisor generation options in the FOPT macro 
determine the size of the TEBV Status Block at 
generation time: 



When EVA is chosen without ESTV, the TEBV 
Status Block is four bytes long (bytes 0-3) , 
followed by TEBV Error Blocks, so that bytes 
4-21 are omitted. 



When ESTV output is to SYSLOG, the TEBV Status 
Block is six bytes long (bytes 0-5) , followed 
by TEBV Error Blocks, so that bytes 6-21 are 
omitted . 



When ESTV output is to DASD, the TEBV Status 
Block is 22 bytes long (bytes 0-21, such as 
shown in this Figure) , followed by TEBV Error 
Blocks. 



Note 2 : The number of TEBV Error Blocks generated 
corresponds to the (n) parameter of the FOPT macro 
for TEB, TEBV, or EVA options. A TEBV Error Block 
always contains 18 bytes, as shown in bytes 22-39 
of this Figure. Therefore, the TEBV Table is 
composed of one TEBV Status Block (with its byte 
length dependent on supervisor generation options, 
as described in Note 1 ) , followed by (n) number of 
18-byte TEBV Error Blocks. 



Figure 21. TEBV Table Showing Status Block and Error Blocks 
(Part 2 of 2) 
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NICL FICL LUB 

System 

BG 

F2 

Fl 

n = number of units 
















TEBV 












*" ft V* WM ^5 













































































TEB 



THFLPTR 



jpi^^^^^^^ft^iiliftHttli 



LUB REQ LUB TKREQ £ < 
CHANQ ID ID DSP ID 



* 










TKHDTAB 










iSfiw 


































































































































V}Tf\^ 



















































































































































































NICL (Number in Class) 
FICL (First in Class) 

LUB (Logical Unit Block) Table 
PUB (Physical Unit Block) Table 

FOCL (First on Channel List) 

TEB (Tape Error Block by Unit) 
TEBV (Tape Error Block by Volume) 

FAVP (First Available Pointer) 
JIB (Job Information Block) 

CHANQ (Channel Queue) Table 

LUBID (LUB Identification) 
REQID (Requestor Identification) 
LUBDSP (LUB Displacement) 
FLPTR (Free List Pointer) 
SAB (Seek Address Block) 

TKHDTAB (Track Hold Table) 

THFLPTR (Track Hold Free List Pointer) 
TKREQID (Track Requestor Identification) 



: The first byte contains the number of system class units. The second, third, and fourth bytes contain the number of 
programmer class units (BG, F2, Fl ) (Figure 21). 

: The first byte points to the first system class unit in the LUB table. (Always the first LUB table entry. ) The second byte 
points to the first programmer class unit in the LUB table BG area. The third points to the first programmer class unit 
in the LUB table F2 area. The fourth points to the first programmer class unit in the LUB table Fl area (Figure 21). 

: The first byte points to a PUB table entry (if the logical unit is assigned) or contains X'FF'. The second byte points 
to a JIB table entry or contains X'FF 1 (Figure 21). 

: The first two bytes contain the channel and unit address of the physical device; the third a CHANQ pointer; the 
fourth a TEB pointer; the fifth device type codes; the sixth a device characteristic code or a SAB pointer; the seventh 
the channel scheduler flag; and the eighth has the job control flag (See Figure 19). 

: The first byte points to the first PUB (highest priority) on channel zero. The next byte points to the first PUB (highest 
priority) on channel one, etc. A hexadecimal FF indicates the associated channel is not supported. 

: One TEB is built for each tape unit at supervisor generation time if tape error statistics by unit are required (Figure 16). 

: One TEBV is built for each tape unit at supervisor generation time if tape error statistics by volume are required 
(Figure 21). 

: A one-byte pointer to the next available JIB entry. 

: The first two bytes contain extent or LUB information. The third contains ownership and JIB flags. The fourth contains 
JIB chaining information (See Supervisor PLM -GY24-5151 ). 

: The first byte contains the chain field (a pointer to the next in queue). The last three bytes contain the CCB address 
(Figure 18). 

: A one-byte pointer to the LUB making the I/O request. 

: A one-byte pointer to the program containing the CCB (Figure 18). 

: A one-byte value equal to the absolute LUB number (CCB byte 7). 

: A one-byte pointer to the next free entry in the channel queue (Figure 18). 

: A four-byte (BCCH) address that is the current disk address of the device plus a fifth byte that contains a Track Hold 
Table pointer of X'FF'. If the Track Hold function is not supported, the fifth byte contains X'OO' . 

: The first byte contains a pointer to the next available entry (or X'FF'); bytes 2-4 have CCB address of the requesting 
task; bytes 5-10 have a disk address (BBCCHH) of track being held; byte 11 has key of owning track; and byte 12 has 
two uses: bit 0= 1 means a task is waiting for the track, and bits 4-7 count the number of holds on the track. 
(See Supervisor PLM - GY24-51 51 ) . Note: The number of holds is one more than the va Tue of bits 4 - 7 of the last byte . 

: A one-byte pointer to the next free entry in the Track Hold Table. 

: A one-byte pointer to the PIB of the task requesting I/O. 



Figure 22. I/O Table Interrelationship 
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JIB Table 


JIB 


1 


JIB 


2 


JIB 


3 


JIB 


4 


JIB 


5 


JIB 


6 



Note: 



Number (length of JIB table) 
determined at supervisor generation 



Type of Entry 



Stored standard 
assignment 



Alternate 
assignment 



2311 Extent 



2321 Extent 



" " i ■ 

LUB entry of stored 
standard assignment 

(PUB and JIB pointers) 

1 



PUB pointer 
of alternate 
assignment 



X'OO' 



c L c L c H c H © 



or B L B L C L C L ^ 
° r B H B H C H C H ^ 



Only when file -protect on DASD 

(2) Lower Cylinder 
Upper Cylinder 

(3) Cell or combined sub -cell and strip 



Two J IBs are required for a 2321 extent; one for lower 
limit and one for upper limit. The lower limit defining 
JIB must be chained to the upper limit defining JIB. 
Byte 1 of this type JIB contains the sub - cell number 
times 10 plus the strip number in binary. 






1 


2 


3 



Flag Type 


Bit 


Meaning if Bit = 1 


Contents 





Stored standard assignment 


1 


Alternate assignment 


2 


2311 Extent 


3 


2321 Extent 


4 


Standard assignment for 
DASD extent 


Ownership 


5 


Background 


6 


Foreground 1 


7 


Foreground 2 



Chain Byte. 

Contains the displacement 

index of the next JIB. 

A hexadecimal 'FF' defines 

the end of the chain. 



Bytes 68 - 69 (X'44' - '45') of the communications region contain the address of 
the JIB table entry. Label JIBTAB identifies the first byte of the table. 



Figure 23. Job Information Block (JIB) Table 
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Displacement 


Label 


Description 


0-3 


ACCTWK1* 
(ACCTABLE)* 


Work area used in SIO update. 


4-7 


ACCTWK2 


Work area used with ACCTWK1 in start/stop time routine. 


8-11 


ACCTSVPT 


Job card pointer; address of job card field following jobname. 


12 


ACCTPART 


ID of partition in charge (partition switch name). 


13 


ACCTRES2 


Reserved . 


14-15 


ACCTLEN 


Length of SIO area = 6n+ 1 , where n = number of devices for this partition in SYSGEN option JA = (nl , n2, n3). 


16-21 


ACCTLOAD 


Label area instruction; moves JAI label area address to OPEN/CLOSE transients. 


22-23 


ACCTRES3 


Reserved . 


24-27 


ACCTLADD 


Address of alternate label area. 


28-31 


ACCTCPUT 


Counter for CPU time elapsed in a jobstep, counted in 300ths of a second. 


32-35 


ACCTOVHT 


Counter for overhead time; time not charged to any partition. 


36-39 


ACCTBNDT 


Counter for all- bound time; system wait state time divided between running partitions. 


40-47 


ACCTSVJN 


Save area for job name during simulated EOJ. 






JOB ACCOUNTING TABLE (user's portion of Partition Table) 


48-55 


ACCTJBNM 


Job name; taken from job card. 


56-71 


ACCTUSRS 


User information; 16 bytes from Job card. 


72-73 


ACCTPTID 


Partition ID; 'BG', 'F2', or 'FT in EBCDIC format. 


74 


ACCTCNCL 


Cancel code; see Cancel Codes and Messages (Figure 32). 


75 


ACCTYPER 


Type of record: 'S' = jobstep, 'L , = last step of job. 


76-83 


ACCTDATE 


Date in format specified at SYSGEN (MM/DD/YY or DD/MM/YY). 


84-87 


ACCTSTRT 


Start time of job, in packed decimal (OHHMMSSF; F = sign). 


88-91 


ACCTSTOP 


Stop time of job, in same format as ACCTSTRT. 


92-95 


ACCTRES 


Reserved. 


96- 103 


ACCTEXEC 


Phase name; taken from execute card. 


104-107 


ACCTHICR 


High core address of active program phase, from COMREG. 


108-111 


ACCTIMES 


CPU time elapsed in a job step; counted in 300ths of a second. 


112-115 




Overhead time; elapsed time not charged to any partition, in 300ths of a second. 


116-119 




All -bound time; system wait state time divided between running partitions, in 300ths of a second. 


120 


ACCTSIOS 


SIO tables: 6 bytes for each device specified by SYSGEN options, as follows: 2 bytes for device address (Ocuu), 
4 bytes for count of SIOs in current jobstep. 

Overflow byte: normally X'20', but is X'30 1 if more devices are used within a partition than specified by 




*Note: DSE 
its c 


CT ACCTABLE s) 
>wn JAI Partition 


^mbolically addresses the JAI Partition Tables with labels as shown. Each partition in which JAI is supported has 
Table, labeled ACCTBG, ACCTF2, ACCTF1, for active partitions BG, F2, and Fl respectively. 



Figure 24. Job Accounting Interface Partition Table 
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Displacement 



Label 



Description 



0-15 

16-17 

18-19 

20-23 

24 

25 

26 

27 



54-55 



(ACCTCOMN) 
ACCTSVRG 

ACCTSVRX 

ACCTSVRE 

ACCTPCNT 

ACCTSAID 

ACCTFAID 

ACCTRAID 

ACCTSWCH 



28-31 


ACCTIME 


32-33 


ACCTRESC 


34-35 


ACCTUSEP 


36-39 


ACCTBLES 


40-43 




44-47 




48-53 


ACCTSEAS 



ACCTUSEL 



Temporary register save area. 

Save area for remainder of overhead counter times distributed by partition on exit. 

Save area for remainder of all-bound counter times distributed by partition on entry. 

Count of partitions using JAI . 

Owner of physical transient area*. 

Interrupted program*. 

Active program*. 

Accounting switches: if bit = 1 , true; if bit = 0, not true. 



bit - cancel accounting 
bit 1 - no active partitions 
bit 2 - catalog in process 
bit 3 - alternate label area 



bit 4 - IPL indicator 
bit 5 - $JOBACCT in Fl 
bit 6 - $JOBACCT in F2 
bit 7 - $JOBACCT in BG 



Start time of current accounting interval, in complement format. 

Reserved. 

Address of user save area (ACCTUSER). 

Address of BG Job Accounting Table. 

Address of F2 Job Accounting Table if BJF; otherwise zero. 

Address of Fl Job Accounting Table if BJF; otherwise zero. 

Seize blocks; serve as overlapped Event Control Blocks. 



TSBit 


(reserved) 


Wait 
Bit 1 


PIK1 


Wait 
Bit 2 


PIK2 


^ Uf FPR 


ECB 


*■ 






«* ^- 


2nd 



TS Bit: 

X'00' = no $JOBACCT 
running 

X'FF' = $JOBACCT active 



Length of user save area, set with 4th operand of global AG39. 



*Note: X'00' = all bound, X'10' = BG, X'20' = F2, X'30' = Fl , X'40' = overhead and FG if SPI. 



Figure 25. Job Accounting Interface Common Table (ACCTCOMN) 
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K) 


^ 


Record 


4=- 


H* 




O 


03 

C 


1 


O 


CD 




O 






w 


OS 




H 


• 




>ti 






t"< 




Record 


Q) 


2 


2 


3 


w 




Q* 


s 




C< 


OJ 







o 




cr 






o 


3 


D J 





CD 




p 




3 


rt- 


O 




h 


tf 







CD 




H 











o 


Record 




h 


4 




Oj 













3 






W 






K 






W 








Record 




O 


5 



Record 
6-17 



Record 
18 






1-2 


3 


4 


5-7 


8-9 


10-11 


12-15 


16-19 


20-27 


28-35 


36-43 


44-77 


78 


79 


Machine 


Record 


CPU 


Reserved 


CPU 


CPU 


MCEL 


Date 


Time of day 


Reserved 


Job ID 


Machine 


Reserved 


Damage 


End of 


Check 


Sequence 


Model 




Serial 


ID 


Length 




in 300ths of 






Check 




Assessment 


Record 


ID 


Counter 


Number 












a second 






Old PSW 






Indicator 


(X'10 1 ) 
















Timer units 












(X'FF') 



0-3 

(Same as Record 1) 



0-3 

(Same as Record 1 ) 



0-3 

(Same as Record 1) 



Sub Class 
Codes 



Tense 
Codes 



6-7 

Error and 
Validity 
Codes 



8-11 

Extended 

Logout 

Length 



12-19 
Reserved 



20-23 

Failing 
Storage 
Address 



24-25 

Region Code 

ECC 

Information 



26-27 

Region Code 
Control Word 
Address 



28-78 



Reserved 



79 

(Same as Record 1) 



4-48 
Reserved 



49-78 

Floating Point Register Area 



79 

(Same as Record 1) 



0-3 

(Same as Record 1) 


4-5 

Floating Point Regs Save 
Area (Continued) 


6-69 

General Registers Save Area 


70-78 

Control Registers 
Save Area 


79 

(Same as Record 1 ) 



4-58 

Control Registers Save Area 



59-78 

MCEL (Machine Check Extended Logout) 



79 

(Same as Record 1 ) 



0-3 

(Same as Record 1) 


4-78 

MCEL (Machine Check Extended Logout) 


79 

(Same as Record 1 ) 



0-3 

(Same as Record 1) 


4-75 

MCEL (Machine Check Extended Logout) 


76-78 

Reserved 
(X '000000') 


79 

(Same as Record 1 ) 



r Note: The Model 155 uses Records 1- 18, as shown. The Model 145 uses only Records 1-8. 

In Record 8 for the Model 145, Bytes 0- 3 are the same as Record 1 , Bytes 4- 25 contain 
the remainder of the MCEL (Machine Check Extended Logout) area, and the remainder 
of the record is not used. 






4 


8 


12 


16 


20 


24 


28 


32 


LDOOSLOT 


LD01SLOT 


LD02SLOT 


LD03SLOT 


LD04SLOT 


LD05SLOT 


LD06SLOT 


LD07SLOT 


LD08SLOT 


($$RAST00) 


(SSRAST01) 


(SSRAST02) 


(SSRAST03) 


($$RAST04) 


($$RAST05) 


($$RAST06) 


($$RAST07) 


(SSRAST08) 


0© 


© 


© 


© 


© 


© 


© 


© 


© 


36 


40 


44 


48 


50 


52 


54 


56 


57 


LD09SLOT 


LD10SLOT 


LD11SLOT 


RASCCB 


RASTIB 








RASCCBF 





(SSRAST09) 

© 


(SSRASTIO) 

© 


(SSRAST11) 

© 


Residual 
Count 


Transmission 
information 


CCW Status 
bytes 


SYSRES 
LUB 


RAS CCB 
indicator 


RAS Fetch 
CCWs address 


60 


64 


72 


80 


88 


96 


103 


104 


106 




RASCCWS 


RASRCG 


RASTIC 


RASREAD 


RASEEK 


RTAOWN 


MCPIK 


RTA ID 


CCW stored 
address 


RAS seek 

ccw 


RAS search 
CCW 


TIC CCW 


CCW to read 
module into 
RTA 


Seek 
Address 


Index into 
load list for 
RTA owner 


PIKof task 
interrupted by 
machine check 


RTA I/O 
requestor ID 


107 


108 


112 


116 


120 


124 


128 


132 


136 


ERPID 


RASRETR 


RASIOA 


RASFCHA 


ERPIBA 


RASDEQA 


XCANRASA 


CCENTADR 


RASRES 


WTOR request 
return load 
index 


RTA return 
address after 
I/O operation 


RAS I/O 
request address 


RAS FETCH 
request address 


ERPIB queue 
address 


CCB DEQ 

routine 

address 


RAS cancel 

routine 

address 


Channel 
Check entry 
address 


SYSRES 
I/O address 


138 




140 




142 


144 


148 


156 


160 


164 


RASREC 




RASLOG 




RASEMIOA 


RASCQDSP 


SUPRETR 


SUPBB 


SUPBC 


SUPBD 


SYSREC 
I/O address 




SYSLOG 

device 

address 




Emergency 

SIO 

address 


CCB look- up 
routine 

address 


Save area 
for registers 
9 and 10 


Base address 
(X'1000 1 ) for 
supervisor 


Base address 
(X'2000') for 
supervisor 


Base address 
(X'3000 1 ) for 
supervisor 


168 (HIR- Hard 


ware Instruction 


tetry accumulators) 


180 (ECCMAIN - Main storage error accumulators) 


168 




170 




172 


176 


180 


182 


184 


188 


HIRACNT 




HIR1CNT 




HIR1TIME 


HIRLTIME 


ECMACNT 


ECMLCNT 


ECM1TME 


ECMLTME 


HIR 
accumulated 




Count 
threshold 




Time of day for 
first error 


Time threshold 
in clock units 


Accumulated 
ECC count for 


Count 
threshold 


Time of day 
for first error 


Time 
threshold in 


count 




value 




of group 




main storage 


value 


of count 


clock units 


192 




194 




196 


197 


198 


199 


200 


201 


RESTARTA 




RESTARTP 




MCMODE 


BUFDEL 


RASMSG1 


RASMSG2 


EOR 


EOT 


Disk 

restart 

address 




PUB address 
of unit to 
be restartec 




Mode status 
for machine 
checks 


Count of 

buffers 

deleted 


Message byte 1 

© 


Message byte 2 

© 


Records/track 
for SYSREC 


Tracks/cylinder 
for SYSREC 



Figure 27. RMS Monitor Table - RASTAB (Part 1 of 2) 
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Notes: 







Areas labeled LDxxSLOT (byres - 47) are called the Load List and each of the 
12 entries are formatted as follows: 



© 



© 



© 



© 



© 



© 



BYTE 





1 2 3 






Flag 
Byte 


Cylinder - Head - Record 
(disk address of R-transient in the 
core image directory) , 




LD00SLOT f 


lag byte: 






Bit 

1 

2 
3 
4 
5 
6 
7 


Flag 

X'80' 

X'40' 

X'20 

X'10' 

X'08* 

X'04 

X'02' 

X'OT 


Description 

$$RAST00 module activated. 

Machine check analysis to be performed. 

Channel check analysis to be performed. 

Active I/O units are valid. 

System termination situation. 

Reserved. 

Reserved. 

Attempt made to record in system termination situation. 


LDOlSLOTf 


lag byte: 




Bit 



1 

2-7 


Flag 

X'80' 

X'40' 


Description 

$$RAST01 module activated. 

Build and record channel check records. 

Reserved. 


LDlOSLOTf 


lag byte: 




Bit 



1 
2-7 


Flag 

X'80' 

X'40' 


Description 

$$RAST10 module activated. 

Refetch calling module after issuing message. 

Reserved. 


LDxxSLOT flag byte: 




Bit 



1-7 


Flag 
X»80' 


Description 

$$RASTxx module activated; that is, should be fetched 

Reserved. 


RASMSG1: 






Bit 
0-3 
4 
5 
6 
7 


Flag 

X'08' 
X'04' 
X'02' 
X'OT 


Description 

Reserved. 

Timer damage. 

ECC in Quiet mode. 

Reserved . 

MCAR repair failed. 


RASMSG2: 






Bit 

1 
2 
3 
4 
5 
6 
7 


Flag 

X'80' 

X'40' 

X'20' 

X'10' 

X'08' 

X'04' 

X'02* 

X'OT 


Description 

Check damage. 

Last track on SYSREC. 

C40 buffer pages deleted. 

Soft machine checks disabled. 

ECC MCI disabled. 

SYSREC full-run EREP. 

Error on SYSREC at BBCCHHR. 

Soft machine check. 





Figure 27. RMS Monitor Table - RASTAB (Part 2 of 2) 
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(Decimal Displacement) 
CPUID 


8 
RASDMC 


9 
RASFLAGS 


10 
MCFLAGS 


11 

RASMODEL 


12 
RASTABA 


16 
RASBASE 


CPU ID field 


Damaged 

Channel 

byte 


RAS flag 
byte 


Machine 

Check 

flags 


CPU 
Model 


RAS Table 
(RASTAB) 
address 


Base address 
for RAS 
Monitor 


XXXXXXXX 


X 


X 


X 


X 


XXXX 


XXXX 



Key to RAS Linkage Area displacements: 
CPU ID field. 
Address of damaged channel, or X'FF' if no channel damaged. 







10 



11 



12 



16 



RAS Flag byte: 


bit 



flag 
X'80 1 


description 




RAS active 




1 


X'40' 


RAS SIO flag 




2 


X'20" 


RTA in control 




3 


X'10' 


RAS I/O delayed 




4 


X'08' 


Channel check on error SIO 




5 


X'04' 


Reserved 




6 


X'02' 


Channel check on SIO 




7 


x'or 


I/O active for SIO 


Machine Check Flags: 


bU 


flag 


description 




0-4 




Reserved 








5 


X'04' 


Hard machine check 




6 


X'02 1 


All machine records built 




7 


x'or 


All channel check records built 



Largest CPU Model. 

Address of RAS Table (RASTAB). 

Address used for base register in RAS Monitor Program. 



Figure 28. RMS Linkage Area (RASLINK) 
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Displacement 





1 


2 


3 


4-11 


12-15 


16- 19 


20-27 


28-43 


44-51 


Label 


CCKEY 


CCN1 


CCN2 


CCMOD 


CCCPUID 


CCDATE 


CCTIME 


CCNAME 


CCAIOU 


CCFCCW 


Record 1 * 


Record 
ID 


Record 
Number 


Total 
Records 


CPU 

Model 

Code 


CPU ID 
Information 


Date 


Time 
of Day 


Job 

Name 


Active 
I/O Units 


Failing 

CCW 



Displacement 


52-59 


60-63 


64-65 


66 


67-69 


70-73 


74-77 


78 


79 


Label 


CCCSW 


CCECSW 


CCDEVTYP 


CCCHID 


CCCUA 


CCMPI 




CCSYSCON 


CCGUARD 


Record 1 
(continued) 


CSW 


Extended 
CCW 


Device 
Type 


Channel 
ID 


Control 
Unit 


Multi- 
processing 
Information 


Reserved 


System 

Condition 

Byte 


Guard 

Byte 

X'FF' 



Displacement 


0-3 


4-78 


79 


Record 2 


Same as Record 1 


Channel Logout Area 


Same as 
Record 1 



Displacement 


0- 3 


4-24 


25-78 


79 


Record 3 


Same as Record 1 


Channel Logout Area 


Unused 


Same as 
Record 1 



* Note: Only Record 1 is written for the Model 155. 

Record 1 is also addressed symbolically as CCREC with the logout data area, 
Bytes 4-78, addressed as CCLOGD. 

| Figure 29. RMS Channel Check Record on SYSREC 
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APPENDIX G: LABEL INFORMATION CYLINDER RECORD FORMAT 



Job Control Statements or Operator Initiation Commands 




and 



// TPLAB 



// TLBL 



Label 

Information 

Cylinder 




//VOL 



// TLBL 

A 



// TPLAB 

A 



: : B'yte-;:ii : *|- : 


Filename 


lilllllrl:! 

IHBIIII 


File 
ID 


File 

Serial 

Number 


Volume 

Sequence 

Number 


File 

Sequence 

Number 


Generation 
Number 


Version 
Number 


Creation 
Date 


Expiration 
Date 


•.•.SBc^rjiyi: 
Number 


Block 
Count 




Flag 
Bytes 


1 


7 


1 


17 


6 


4 


4 


4 


2 


6 


6 


1 


6 


13 


2 


1 


1 


8 


9 


26 


32 


36 


40 


44 


46 


52 


58 


59 


65 


78 



— Byte Count 
Displacement in Main Storage Shaded areas are not processed by DOS Logical IOCS. 

Figure 3 0. Format of SYSRES Tape Label Information 
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Filename 



E 



File ID 



File 

Serial 

Number 



10 



12 



System 
Code 



13 



Volume 

Serial 

Number 



14 



15 



16 



Extent 
Lower 
Limit 



17 



Extent 
Upper 
Limit 



18 



— "D 
O < 

u ^ 

'ov"^ 

35 




44 



13 



10. 



Field 


Name 




Description 


1. 


DLBL-EXTENT 


SD 








BitO 


1 = Next extent on a new pack 






Bit 1 


1 = Last extent. 






Bit 2 


1 = Bypass extent. 






Bit 3 


1 = New volume on same unit. 






Bit 4 


1 = Extent limits omitted. 






Bit 5 


1 = Extent converted to DASD 
address. 






Bit 6 


1 = No EXTENT/XTENTcard. 






Bit 7 


1 = Unused. 






DA or IS 


FMS 






Numl 


Der of extents. 


2. 


Filename 






3. 


DA/IS Switch 


Bits C 


-3: Unused. 



File ID 



5. 


Format ID 


6. 


File Serial No. 


7. 


Volume Seq. No. 


8. 


Creation Date 


9. 


Expiration Date 



Reserved 



Open Code 



Bit 4: 1 = Extent limits omitted. 
Bit 5: 1 = Extent converted to DASD 

address. 
Bit 6 & 7: Unused. 

File identifier including generation 
and version numbers. If field is 
missing on DLBL card, Filename 
padded with blanks is inserted. 

Numeric 1 is inserted. 

Volume serial number from first extent. 

Always initialized to X'OOOT. 

Initialized with 3 bytes of X'00'. 

If date is in the form YYDDD, it is 
converted to YDD. If date is in re- 
tention period form, 1 to 4 characters, 
the field is padded with binary zeros. 

The retention period, if specified is 
converted to a 2-byte number and 
inserted in this field. 

DLBL type: 

S = Sequential 

D= Direct Access 

C or E = Indexed sequential 

File Management System where: 

C = Load create function 

E = Load extend function 



Field 



Name 



12. System Code 

13. Volume Serial No. 

14. Extent Type 



15. Extent Seq. No. 



16. Extent Lower 
& and Upper 

17. Limits 



18. Logical (Symbolic) 
Unit Address 



19. 2321 Lower Cell 
2321 Upper Cell 



Note: 



For Sequential Disk files, a complete 104-byte block is repeated for each new EXTENT. 
For Direct Access and ISFMS files, only fields 13 through 18 are repeated for each EXTENT. 



Description 

Initialized to contain DOS/360 VER 3. 
This field is not processed by DOS. 

Volume serial number for extent. 



Same 
XW 

x'or 



X'02' 
X'04' 

X'40' 
X'Sn' 



codes as in Format - 1 label: 

= Next three fields do not indicate 

any extent. 
= Prime data area (ISFMS) or 

consecutive area, etc., (that is the 

extent containing the user's data 

records). 
= Overflow area of an ISFMS file. 
= Cylinder index or master index of an 

ISFMS file. 
= User label track area. 
= Shared cylinder indicator, where 

n = 1, 2, or 4. 



Number of extent as determined by the extent 
card sequence. 

Before the OPEN, DLBL/EXTENT 

information is in the relative track form of 

HHNNT followed by three bytes of binary 

zeros. 

HH = Relative (to 0) start address in tracks. 

NN = Number of tracks. 

T = or upper track number for split 
cylinder in SD files. 
Following an OPEN on DLBL/EXTENT cards, 
or whenever DLAB/XTENT cards are used, 
the extent lower and upper limits are each 
in the CCHH format. 

This 2-byte field identifies the logical unit 

with the same code as that used in a CCB. 

The first byte identifies the unit class: 

X'00' = System Logical Unit 

X'01 ' = Programmer Logical Unit 

The second byte identifies the logical unit 

within its class. 

Thus X 1 0003' denotes SYSLST and X'0103' 
denotes SYS003, 

2321 extent lower and upper cell 
limit. This 2-byte field contains 
zeros for 2311/2314/2319 disk. 



Figure 31. SYSRES DASD Label Information 
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APPENDIX H: MICROFICHE CROSS-REFERENCE INDEX 



The index gives the relationship of 
core-image phase names, relocatable module 
names, microfiche labels, and microfiche 
identification numbers to each other. 

An asterisk indicates the microfiche 
label. If the microfiche label differs 
from both the phase and the module name, it 
is so indicated in parentheses. 

When a phase or module takes up more 
than one microfiche card, the 
identification number of only the first 
card is shovm. 

For the complete microfiche 
cross-reference index, see Introduction to 
DOS Logic listed in the Preface . 



Core Image 


Relocatable 




Phase Name 


Module Name 


Card ID 


$$A$IPL1* 


None 


CTL-001.00 


$$A$IPL2 


None 


CTL.001.00 


($$A$IPL1) 






$IPLRT2 


IJBIPL* 


CTL.201.00 


$IPLRT3 


IJBIPL3 
(IJBIPL) 


CTL.201.00 


$IPLRT4 


IJBIPL4 
(IJBIPL) 


CTL.201.00 


$JOBACCT* 1 


$JOBACCT 


CTL.187.25 


$JOBCTLA 


IJBJC1* 


CTL.202.00 


$JOBCTLD 


IJBJC2* 


CTL.203.00 


$JOBCTLF 


IJBJC5* 


CTL.206.00 


$JOBCTLG 


IJBJC3* 


CTL.204.00 


$JOBCTLJ 


IJBJC4* 


CTL.205.00 


$JOBCTLK 


IJBJC6* 


CTL.207.00 


$JOBCTLM 


IJBJC7* 


CTL.208.00 


$JOBCTLN 


IJBJC8* 


CTL.208.50 



1 $JOBACCT is a dummy entry to be replaced 
by a user- written routine. 
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GLOSSARY 



For a more complete list of data processing 
terms , refer to IBM Data Processing 
Techniques f A Data Processing Glossary , 
GC20-1699. 



file section number ; For ASCII files, the 
number indicates the order of a volume in a 
given file or multifile set. The first 
file must be numbered 0001. The ASCII file 
section number is equivalent to the EBCDIC 
volume sequence number. 



American National Standard Label Format : 
The tape file format used when the label is 
written in the ASCII mode. 

ASCII (American National Standard Code for 
Information Interchange) : A 128-character, 
7-bit code. The high-order bit in the 
System/360 8-bit environment is zero. 

block prefix ; An optional, 0-99 byte field 
preceding an ASCII record. It contains 
user specified data or, for variable-length 
(format D) records, the physical record 
length . 

CCH (Channel Check Handler) ; A feature 
that assesses System/370 channel errors to 
determine if the system can continue 
operations. 

channel inboard error ; An error that 
occurs between one I/O device and the 
central processing unit. 

data conversion : The process of changing 
data from one form of representation to 
another. 

DOS Volume Statistics : A facility that 
monitors and records the number of 
temporary read and write errors on 
currently accessed tape volumes. This 
facility has two options. Error Statistics 
by Tape Volume (ESTV) and Error Volume 
Analysis (EVA) . 

EREP (Environmental Recording, Editing, and 
Printing) : A program that processes the 
data contained on the system recorder file. 

ESTV (Error Statistics by Tape Volume) : 
One of the two options of the DOS Volume 
Statistics. With ESTV support, the system 
collects data on tape errors by volume for 
any tape volumes used by the system. 

EVA (Error Volume Analysis) : One of the 
two options of the DOS Volume Statistics. 
With this option, the system issues a 
message to the operator when a number of 
temporary read or write errors (specified 
by the user at system generation time) has 
been exceeded on a currently accessed tape 
volume . 



I/O (Input/Output) error logging : The 
process of recording OBR and SDR records on 
the system recorder file. 



job accounting interface : A function that 
accumulates accounting information for each 
job step to: charge usage of the system, 
help plan new applications, and help 
supervise system operation more 
efficiently. 

load point : The beginning of the recording 
area on a reel of magnetic tape. 

MCAR (Machine Check Analysis and 
Recording) : A feature that records 
System/370 machine check interrupt error 
information on the system recorder file and 
then attempts to recover from the 
interrupt. 

MCI (Machine Check Interrupt) : The 
interrupt that occurs if the central 
processing unit fails to operate. 

MCRR (Machine Check Recording and 
Recovery) : The recording of pertinent data 
on the system recorder file after either a 
machine check interrupt or a channel 
inboard error occurred on System/360 Model 
30, Model 40, or Model 50. 

nonstandard labels : Labels that do not 
conform to the System/360 standard label 
specifications. They can be any length, 
need not have a specified identification, 
and do not have a fixed format. 

OBR (Outboard Recorder) : A feature that 
records pertinent data on the system 
recorder file when an unrecoverable I/O 
error occurs. 

PCIL (Private Core Image Library) : A file 
referenced in the same manner and for the 
same purposes as the system core image 
library, but distinct from the system core 
image library. PCIL increases available 
core image library space to enable 
compiling, linkage editing, and executing 
in the foreground partition, when a private 
core image library is assigned to that 
foreground partition. 
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RDE: See Reliability Data Extractor , 

Reliability Data Extractor (RDE) : A 
function that provides hardware reliability 
data that is analyzed by IBM. 

RMS (Recovery Management Support) : A 
feature for System/370 that consists of the 
MCAR (Machine Check Analysis and Recording) 
and CCH (Channel Check Handler) functions. 
RMS gathers information about System/370 



hardware reliability and attempts certain 
error recovery operations. RMS is a part 
of the entire reliability, availability, 
and serviceability support for System/370. 

SDR (Statistical Data Recorder) : A feature 
that records the cumulative error status of 
an I/O device on the system recorder file. 

system recorder file : The file that is 
used to record hardware reliability data. 
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INDEX 



Indexes to systems reference library 
manuals are consolidated in the publication 
DOS Master Index , GC24-5063. For 
additional information about any subject 
listed below, refer to other publications 
listed for the same subject in the Master 
Index . 



ACCTCOMN (job accounting interface common) 

table 239 
ACTION statement processor 

detail chart 143 

general chart 31 
add routine 15 
ADD statement 16 
ALLOC statement processor 

detail chart 153 

general chart 30 
American National Standard Label Format , 

definition 248 
ASCII, definition 248 
ASSGN statement processor 

detail chart 79 

general chart 25 



background communications region extension 

223 
block prefix 24 8 



CANCEL statement processor 

detail chart 123 

general chart 29 
CATALR card processor 

detail chart 152 

general chart 32 
CCB (command control block) 
CCH (channel check handler) , 

248 
channel inboard error, definition 
CLOSE statement processor 

detail chart 89 

general chart 26 
command control block (CCB) 226 
communications region extension, background 

223 
communications region, SDR 224 
communications region, supervisor 218 
COMREG and CCB 218 

cylinder record format label information 
245 



226 
definition 



248 



DASD label information SYSRES 246 
data conversion, definition 248 
data file block format (DFB) 203 
DATE statement processor 

detail chart 147 

general chart 32 
DEL statement 16 



jdelete routine 15 

DFB (data file block) format 203 

DIB (disk information block) table 230 

disk information block table (DIB) 230 

Disk Operating System program flow 10 

DLAB statement processor 

detail chart 164 

general chart 33 
DLBL statement processor 

detail chart 163 

general chart 34 
DOS volume statistics, definition 248 
DVCDN statement processor 

detail chart 109 

general chart 27 
DVCUP statement processor 

detail chart 111 

general chart 27 



ENTRY statement processor 

detail chart 143 

general chart 31 
EOJ (/&) statement processor 

detail chart 121 

general chart 29 
EREP, definition 24 8 
error messages 215 
ESTV (error statistics by tape volume) , 

definition 248 
EVA (error volume analysis), definition 

248 
EXEC statement processor 

detail chart 124 

general chart 29 
explanation of flowchart symbols 216 
EXTENT statement processor 

detail chart 167 

general chart 34 

FICL (first-in-class-list) table 228 
file section number, definition 248 
first-in-class-list table (FICL) 228 
flowchart symbols, explanation of 216 
flowcharts 

detail 37 

general 21 
formats 

DFB 203 

FICL 204 

label information cylinder record 
245 

NICL 204 

phase-vector table entry 212 



glossary 248 



HOLD statement processor 
detail chart 140 
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HOLD statement processor (CONT.) 
general chart 31 



I/O error logging, definition 248 
I/O flow 17 

I/O table interrelationship 236 
I/O tables (also see tables) 227 

one-device system 12 

two-device system 12 
INCLUDE statement processor 

detail chart 143 

general chart 32 
initial program load 

(see IPL) 
introduction 1 1 
IPL (initial program load) 12 
IPL phases 

(see phases, IPL) 
IPL 

ADD statement 16 

DEL statement 16 

label list 197 

main storage map 13 

SET statement 16 



JIB (job information block) table 237 
job accounting interface common table 239 
job accounting interface partition table 

238 
job accounting interface 

definition 248 

detail chart 191 

general chart 36 
job control label list 199 
job control phases 

(see phases, job control) 
job control program 17 

I/O flow 17 

program flow 17 

storage allocation 19 
job control statement processor 

see specific processor 
job information block table (JIB) 237 
JOB statement processor 

detail chart 119 

general chart 29 



label information cylinder record format 

245 
label list 

IPL 197 

job control 199 
LBLTYP statement processor 

detail chart 159 

general chart 33 
LISTIO printout 217 
LISTIO statement processor 

detail chart 102 

general chart 27 
load point, definition 248 
LOG statement processor 

detail chart 150 



LOG statement processor (CONT.) 

general chart 30 
logical unit block table (LUB) 22 8 
LUB (logical unit block) table 228 



main storage map, IPL 13 
MAP statement processor 

detail chart 111 

general chart 2 7 
MCAR, definition 24 8 
MCI (machine check interrupt) , definition 

248 
MCRR, definition 248 

microfiche cross-reference index 247 
MTC statement processor 

detail chart 144 

general chart 32 



next-in-class-list (NICL) 228 
NICL (next-in-class-list) 228 
NOLOG statement processor 

detail chart 150 

general chart 30 
nonstandard labels, definition 248 



PCIL, 
PHASE 



phase 
phase 



OBR (outboard recorder) , definition 
OPTION statement processor 

detail chart 129 

general chart 28 



PAUSE statement processor 
detail chart 150 
general chart 30 
definition 248 
statement processor 
detail chart 143 
general chart 31 
-vector table entry format 
s, IPL 

$$A$IPL1 detail chart 
$$A$IPL1 general chart 
$$A$IPL1 text 12 
$$A$IPL2 detail chart 
$$A$IPL2 general chart 
$$A$IPL2 text 12 
$IPLRT2 detail chart 
$IPLRT2 general chart 
$IPLRT2 text 14 
$IPLRT3 detail chart 
$IPLRT3 general chart 
$IPLRT3 text 14,15 
$IPLRT4 detail chart 
$IPLRT4 general chart 
$IPLRT4 text 15 

phases, job control 

$$BLSTIO detail chart 
$$BLSTIO general chart 
$$BLSTIO text 18 
$JOBCTLA detail chart 
$JOBCTLA general chart 



248 



212 



37 
21 

38 
21 

45 
22 

52 
23 

58 
23 



193 
27 

66 
24 
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phases, job control (CONT.) 
$JOBCTLA text 17 
$JOBCTLD detail chart 
$JOBCTLD general chart 
$JOBCTLD text 18 
$JOBCTLF detail chart 
$JOBCTLF general chart 
$JOBCTLF text 18 
$JOBCTLG detail chart 
$JOBCTLG general chart 
$JOBCTLG text 18 
$JOBCTLJ detail chart 
$JOBCTLJ general chart 
$JOBCTLJ text 18 
$JOBCTLK detail chart 
$JOBCTLK general chart 
$JOBCTLK text 18 
$JOBCTLM detail chart 
$JOBCTLM general chart 
$JOBCTLM text 18 
$JOBCTLN detail chart 
$JOBCTLN general chart 
$JOBCTLN text 18 

physical unit block (PUB) 

PIB (program information block) 
flag expansions 232 
table 231 

PUB (physical unit block) table 



79 

25 

102 
27 

119 
28 

140 
30 

159 
33 

176 
35 

191 
36 

227 



227 



RASLINK (RMS linkage area) 243 
RASTAB (RMS monitor) table 241 
RDE (reliability data extractor) , 

definition 249 
record format, label information cylinder 
^245 
yLSE statement processor 

detail chart 140 

general chart 31 
RESET statement processor 

detail chart 107 

general chart 27 
RF statement processor 

detail chart 176 

general chart 35 
RMS (recovery management support) , 

definition 249 
RMS channel check record on SYSREC 244 
RMS linkage area 243 

RMS machine check record on SYSREC 240 
RMS monitor table 241 
ROD statement processor 

detail chart 183 

general chart 35 
RSTRT statement processor 

detail chart 173 

general chart 34 



SDR (statistical data recorder), definition 

249 
SDR communications region 224 
set routine 15 
SET statement 16 
SET statement processor 

detail chart 146 

general chart 32 



statement processors 

(see specific processor) 
STOP statement processor 

detail chart 151 

general chart 30 
storage protection 14 
supervisor communications region 218 
SYSRES DASD label information 246 
SYSRES tape label information format 245 
system recorder file, definition 249 
SYSUSE 14 



tables 

DIB 230 

FICL 228 

I/O 12,227 

I/O interrelationship 236 

JIB 237 

job accounting interface 

LUB 228 

NICL 228 

PIB (first part of table) 

PIB (second part of table) 

PUB 227 

RMS monitor 241 

TEBV 234 
tape error block (TEB) 229 
TEB (tape error block) 229 
TEBV error blocks 234 
TEBV status blocks 234 
TEBV table 234 
TLBL statement processor 

detail chart 160 

general chart 34 
TPLAB statement processor 

detail chart 159 

general chart 33 



238,239 



231 
233 



UCS statement processor 
detail chart 141 
general chart 31 

UNA statement processor 
detail chart 114 
general chart 27 

UNBATCK statement processor 
detail chart 112 
general chart 27 

UPSI statement processor 
detail chart 149 
general chart 32 



version and modification level (see intro, 

PLM index) 
VOL statement processor 
detail chart 159 
general chart 33 



XTENT statement processor 
detail chart 165 
general chart 33 
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PREFACE 



This Program Logic Manual (PLM) is a 
detailed guide to the IBM Disk Operating 
System IPL and Job Control programs,. It 
supplements the program listings by 
providing descriptive text and flowcharts. 

Note : Although titles of some DOS 
publications have been simplified, the 
change does not affect the contents of 
the publications. 

For overall system control logic 
description,, this PLM is used with six 
other PLMs : 

• Introduction to DOS Logic, GY24-5017. 

• DOS Linkage Editor, GY2 4-5080. 

• DOS Su pervis or and Related Transients , 
GY24-5151. 

• DOS Logical Transients , GY24-5152. 

• DOS System Service Programs , GY 24-5153. 

• DOS Librarian, GY24-5079. 

Prereguisite publications that will aid 
in the use of this manual are: 

• IBM System/360 Principl es of Operation , 
GA22-6821. 

• DOS Sys tem Control a nd Service , 
GC24-5036. 

IBM System/360 Disk and Tape Operating 
Systems, Assembler Specifications , 
GC24-3414. 



Publications related in subject matter 
to the seven system control PLMs are: 



DOS Supervisor and I/O Macros , 
GC24-5037. 



• DOS System Generation , GC 24-5033. 



• DOS Operating Guide, GC24-5022, 



o DOS Messages, GC24-5074. 



• DOS Data Management Concepts , GC 2 4- 3 4 2 7 . 



Titles and abstracts of other related 
publications are listed in the IBM 
System/ 360 and System/370 Bibliography, 
GA22-6822. 



This manual consists 
sections. The first sec 
introduction to the IPL 
programs. The next two 
discussion of contents o 
Control phases. The las 
manual, the appendixes, 
lists, error messages, c 
for use as references in 
details,. 



of four major 
tion is an 
and Job Control 
sections are a 
f the IPL and Job 
t section of the 
contains label 
harts, and tables 
analyzing program 



The detailed flowcharts are identified 
by letters AA through ZZ,. Numerals such as 
00 for the program level flowcharts 
identify the more general flowcharts. 
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Chart AE. $$A$IPL2 - Move I/O Tables 
Refer to Chart 01, 



****A1********* 



*************** 



LUBRTN 

*****B1* ********* 

* INITIALIZE * 
♦REGISTERS, PUT * 

* CHAN AND UNIT * 

* IN TEMPORARY * 

* PUB *A2 * 
***************** 



.* IS *. NO 
*. THIS FIRST .*... 
*. ENTRY .* 



**D1******* 

* * 
TURN OFF 

FIRST ENTRY 
FLAG 

* * 
*********** 



*****£ ].********** 

* GET GREATER * 

* THAN 16K * 

* ORGIN * 

* * 
***************** 



.* CORE * 
.SIZE GREATER 
*.THAN 16K .* 



*A2 
FIRST TIME 
THROUGH IT WILL 
BE SYSRES C/U, 
NEXT TIME IT 
WILL BE THE 
COMM DEVICE. 



ARE 
THERE 
TEBS 



**C2******* 



*********** 



*****D2 ********** 

* CALCULATE * 

* SIZE OF TEBS, * 

* GET ADDRESS * 

* TO MOVE TEBS * 

* * 
***************** 



*****E2 ********** 
♦SYSMVC AG* 
*-*_*_*_*_*_*_*_* 

* MOVE THE TEBS * 

* TO HIGH CORE * 

* * 
***************** 



* GET LUB 

* ORGIN AND 

* LUB TYPES 
* 

**************: 



**** 

* * 

* A3 * 

* * 
**** 



*****A3********** 
♦SYSMVC AG* 
*_*_*_*_*_*_*_*_* 

* MOVE THE * 

* LUBS TO * 

* HIGH CORE * 
***************** 



*****B3********** 

* UNASSIGN * 

* EXISTING LUBS * 

* IN LOW CORE * 

* SET TO IGNORE * 

* SYSLOG * 
***************** 

**** 

* * 

* C3 * 

* * 
**** X 

SKPMVT .*. 

C3 *. 

.* *. 

.* IS IT *. 

*.TO ESTABLISH . 

*. SYSRES .* 



*****A4********** 

* * 

* SAVE LUB * 

* TYPE FOR * 

* $IPLRT2 * 

* * 
***************** 



.* IS IT *. NO 
*.TO ESTABLISH . *. . . 

*. SYSLOG .* 
*. .* 



LOGWRK X 

*****C4********** 

* INSERT * 

* CONSOLE * 

* PRINTER * 

* KEYBOARD * 

* TYPE IN PUB * 
***************** 



*****C5********** 

* * 

* I NS ERT * 

* READER TYPE * 

* IN PUB * 

* * 
***************** 



RESWRK 

*****03********** 

* INSERT * 

* SYSRES TYPE * 

* IN PUB AND * 

* TURN ON * 

* SHARED FLAG * 
***************** 



**E3******* 

* * 
SET THE 

JIB 
POINTER 

* * 
*********** 



**** 

* * 

* E4 * 

* * 
**** 



.*. LUBLOP X 


GL *. 


*****G2 ********** 


.* IS *. 


* * 


.♦SUPERVISOR *. YES 


* GET * 


*. TOO LARGE .*.... 


* NICL * 


*. FOR 16K .* 


* ENTRY * 


*. .* 


* * 


*. .* X 


***************** 


* NO ***** 




*AB * 




....X. * G2* 




* * 
. * 




ERRHLT 


X 


ORGEST X 


.*. 


*****Hi********** 


H2 *. 


* CALCULATE * 


.* *. 


* SIZE OF PUBS, * 


.* MPS *. NO 


* GET ACDRESS * 


*. SPECIFIED .*.. 


* TO MOVE PUBS * 


*. .* 



* REPLACE * 

* LUB TYPE * 

* WITH SYSUSE * 

* * 
***************** 



* E4 *.X 



**** 
PUBMKE X 

*****£ 4********** 

* INITIALIZE * 
*FOR SUBROUTINE * 

* FOR BUILDING * 

* THE PUB * 

* * 
***************** 



*****P4********** 

*BLDPUB AF* 

*_*_*_*_*_*_*_*_* 

* BUILD PUB * 

* FOR IPL * 

* SYSTEM * 
***************** 



*****G4********** 
*CHURTN AH* 

*_*_*_*_*_*_*_*_* 

* UPDATE THE * 

* FOCL * 



*********** 



**** 



***************** 



*****jl********** 

*SYSMVC AG* 

*_*_*_*_*_*_*_*_* 

* MOVE THE * 

* PUBS TO * 

* HIGH CORE * 
***************** 



*****K1 ********** 

* SET THE FOCL * 

* AND FIRST 3 * 
*PUBS TO A NULL * 

* VALUE. GET * 

* ADDR OF TEBS * 
***************** 



*****J2 ********** 

* * 

* ADD FG * 

* SYSTEM * 

* PUBS * 

* * 
***************** 



*****H4********** 
*LUURTN AH* 

*- *_ *_ *_ *_ *_ *_ *_ * 

* UPDATE THE * 

* LUBS * 

* * 

:********** 



****** 



NOTMPS 

*****«2 ********** 

* CALC TOTAL * 

* LUB LENGTH * 

* AND GET *. 

* ADDR TO * 

* MOVE LUBS * 
***************** 



*****j4********** 

* * 

* ASSIGN * 

* THE * 

* LUB * 

* * 
***************** 



****«4********* 

* * 

* RETURN * 

* * 
*************** 



Charts 41 
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Chart AF. $$A$IPL2 - Build PUB Table 
Refer to Chart 01 • 



****AL********* 

* * 

* BLDPUB * 

* * 
*************** 



* LOAD CHANNEL * 

* NUMBER AND * 

* FOCL POINTER * 

* IN REGISTERS * 
***************** 



CI *. 

.* ANY *. 

* DEVICE *. NO 

ASSIGNED TO .*... 

*. CHANNEL .* 

*. .*' 



*A5 
SYSRES LUB POINTER 
TIMES 8 PLUS THE PUB 
TABLE ADDRESS. 



* GET FIRST * 

* POSITION OF * 

* PLB FROM * 

* FOCL * 
***************** 



*****B2 ********** 

* * 

* GET ORIGIN * 
X* OF PUB * 

* TABLE * 

* * 
***************** 



* SEARCH PUB * 
*TABLE FOR FIRST* 

* AVAILABLE * 

* ENTRY * 
***************** 



* STORE FIRST * 

* AVAILABLE * 

* PUB NUMBER * 

* IN FOCL * 
***************** 



* GET DESIRED * 

* POSITION FOR * 

* NEW PUB * 

* * 
***************** 



.* DESIRED *. 

♦.POSITION PAST. 

*.CHAN END .* 



***** D3** ******** 

* * 

* CALCULATE * 

* CHANNEL END * 

* OESIRED * 

* POSITION * 
***************** 



CHCNT 



IS THIS 
THE LAST 
CHANNEL 



* GET FOCL * 

* OF NEXT * 

* CHANNEL * 

* * 
***************** 



*****P2 ********** 

* * 

* DETERMINE * 

* LAST PUB * 

* ON CHANNEL * 

* * 
***************** 



* INCREMENT * 

* PUB USED * 

* BY PUB * 

* LENGTH * 
***************** 



*****P3********** 

* * 

* GET ADDRESS * 

* TO MOVE * 

* PUB * 

* .* 
***************** 



****D4********* 

* * 

* CLDRTN * 

* * 
*************** 



CLDRTN X 

*****£4********** 

* CALC ADDR OF * 
*PUB TABLE ENTRY* 

* FOR SYSRES * 

* *A5 * 

* * 
***************** 



*****F4********** 

* STORE PUB * 

* ADDRESS FOR * 

* SYSRES IN * 

* PIB DISPLT * 

* X'68' * 
***************** 



I 



YES .* SWITCH 
...*. DEVICE 
*. 



_*_*_*_*_*_*-*-* 

* MOVE THE PUBS * 

* TO MAKE ROOM * 

* FOR NEW PUB * 
***************** 



* INSERT * 

* NEW PUB IN * 

* VACATED * 

* SLOT * 
***************** 



.* 
.* 
YES 



****G5 ********* 

* * 

* RETURN * 

* * 
*************** 



***** 
*AG * 
* Al* 



* DETERMINE * 

* LAST PUB * 

* ON CHANNEL * 

* * 
***************** 



* GET LAST PUB * 

* ON CHANNEL * 

* FROM FOCL * 

* * 
***************** 



**** J 3********* 



*************** 



* B3 * 

* * 
**** 
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Chart AZh. $IPLRTi* - Find PUB and I/O Subroutines 
Refer to Chart 03, 



**** 

* * 

* A5 * 
**** 



*AL 
SYSRES LUB POINTER 
TIMES 8 PLUS. THE PUB 
TABLE ADDRESS. 



*B1 
SUPERVISOR 
GENERATION 
OPTIONS. 



****A2 ********* 

* * 

* COMCHK * 

* * 
*************** 



**** 

* * 

* B3 * 

* * 
**** 



****D1********* 

* * 

* PBFRTN * 

* * 
*************** 



* CALCULATE * 

* PUB ADDRESS * 

* FROM LIB PUB * 

* POINTER * 
***************** 



INCREMENT * 

TO NEXT * 

PUB TABLE * 

ENTRY * 

******* ********* 



* C/U IN 

SYSTEM PUB 

*. SAME AS . 

*. IPL .* 



COMCHK X 






.*. 


*****B2********** 






B3 *. 


* * 






.* *. 


* LOAD REGISTER * 




NO .* DEVICE *. 


* WITH LENGTH * 






.*. ON LIST . 


* OF ENTRY ON * 


. 


*. .* 


* DEVICE LIST * 






*. .* 


***************** 






*. .* 








. 


* YES 




X 




' 




) 


( 








COMLOP .*. 






X 


C2 *. 






**C3******* 


.* *. 






* * 


.* PUB *. NO 




* SET JOB * 


*. INVALID .* 






* CONTROL FLAG 


*. .* 






* IN PUB * 


*. .* 






* TO X'04« * 


*. .* 




X 


*********** 


* YES 


**** 






* 


* 








* 


B3 * 








* 


* 








**** 












X 










****D3********* 










* NORMAL RETURN 










* VIA LINK 










* REGISTER+4 










*************** 



****A4.********* 

* CLDRTN * 

* * 
*************** 



* CALC ADDR OF * 
♦PUB TABLE ENTRY* 

* FOR SYSRES * 

* *A1 * 
***************** 



*****C4********** 

* STORE PUB * 

* ADDRESS FOR * 

* SYSRES IN * 

* PIB DISPLT * 

* x^a* * 
***************** 



D4 *. 

* MPS * 
AND TP 
OPTIONS 
PRESENT 

*. *B1 .* 



ALTCHANQ X 

*****A5********** 

* PUT FOCL PTR * 

* IN CLDWK1 * 

* PUT PIB CHAN * 

* BUCKET ADDR * 

* IN CLDWK4 * 
***************** 



*****C5 ********** 

* * 

* INCREMENT * 

* CLDWK4 * 

* PAST AP PIBS * 

* * 
***************** 



NO 



****E2********* 

* ERROR RETURN * 

* VIA LIM * 

* REGISTER * 
*************** 



LAST 

PUB IN 

TABLE 



****J1********* 

* RETURN TO * 

* LINK ADDRESS * 

* (ERROR) * 
*************** 



VALID 

OEVICE 

TYPE 



****J2 ********* 

* RETURN TO * 

* LINK ADDRESS * 

* PLUS 4 * 
*************** 



.X* 



CALCULATE * 
PUB NUMBER * 

* AND TRUE * 

* ADDRESS * 
***************** 



**** 
CLDLP1 X 

*****D5********** 

* * 

* POINT CLDWK1 * 

* TO NEXT FOCL, * 
*CLDWK4 TO NEXT * 

* CHAN BUCKET * 
***************** 



.* ANY *. NO 
♦DEVICES ON THIS*... 
*. CHAN .* 



*****F5********** 

* * 

* CALC ADDR OF * 

* FIRST PUB ON * 

* THIS CHANNEL * 

* *C5 * 
***************** 



*****G5 ********** 
♦STORE FIRST PUB* 

♦ ON CHAN ADDR * 

♦ IN CHAN BUCKET ♦ 

♦ IN PIB STARTING* 
♦AT DSPLT X'70« ♦ 
***************** 



CLDLP2 


.♦. 




H5 * 




* 


.♦ 


LAST 


♦. 


FOCL 


*. 


ENTRY 



**** 

* * 

* D5* 

* * 
**** 



****j 3********* 

* RETURN TO * 

* LINK ADDRESS * 

* PLUS 8 * 
*************** 



****J5********* 



*************** 
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Chart AZB. $IPLRT4 - Date and Time Subroutines 
Refer to Chart 03 • 



****£!********* 

* * 

* DATERT * 

* * 
*************** 



****A3********* 

* ADREST * 

* * 
*************** 



****A4 ********* 

* * 

* TIMERT * 

* * 
*************** 



**** 

* * 

■* B5 * 

* * 
**** 



.*DATE FIELD *. 
. 13 BYTES 
*. LONG .* 



X 

***** 

*AQ * 
* CI* 



*****DL********** 

* * 

* SET UP TO * 

* CHECK MONTH * 

* FIRST * 

* * 
***************** 



*****£!**** ****** 
♦ADREST AP* 
*_*_*_*_*_*_*_*_* 

* GET MONTH * 

* FIELD ADDRESS * 

* AND LENGTH * 
***************** 



*****P1********** 

♦DECRTN AV* 
*_*_*_*_*_*_*_*_* 

* CONVERT * 

* MONTH FIELD * 

* TO DECIMAL * 
***************** 



* IS 

MONTH C OR 
*. GT 12 . 



**** 

* * 

* C2 * 

* * 
**** 



.* PREVIOUS *. 

*M0NTH END DATE. 

♦. IS 31 .* 

*. *K1 .* 



.* *. 
LEAP YEAR 



* DECREASE * 

* DAY COUNT * 

* BY ONE * 

* * 
***************** 



* IS *. NO 


, .* TIME 


DAY FIRST .*.... 


*. FIELD IS 


♦DATE FIELD.* 


*.14 BYTES 


*. .* 


*. .* 



**** 

* * 

* F2 * 

* * 
**** 



*****C3********** 

* CALCULATE * 

* ADDRESS OF * 

* SECOND FIELD * 

* * 
***************** 



* F2 *.X. 



SKPINC X 

*****D3********** 

♦CALCULATE FIRST* 

* FIELD ADDRESS * 

* AND GET * 

* SUBFIELD * 

* LENGTH * 
***************** 



**** £3********* 

* * 

* RETURN * 

* * 
*************** 



*****C 4 ********** 

* * 

* GET HOUR * 

* FIELD ADDRESS * 

* AND LENGTH * 

* * 
***************** 



* CONVERT * 

* HOUR FIELD * 

* TO DECIMAL ♦ 
***************** 



*****B5 ********** 

* CONVERT * 

* MINUTES TO * 

* SECONDS AND * 

* ADD TO TOTAL * 

* IN TIMREG * 
***************** 



C5********** 
v * 

* GET SECONDS * 

* FIELD ADDRESS * 

* AND LENGTH * 

* * 
***************** 



* CONVERT * 

* SECONDS * 
*' TO DECIMAL * 
***************** 



***** 
*AQ * 
* CI* 



**** 
YLPYR X 

*****P2 ********** 

* SET * 

* FOR DAY * 

* FIRST, RESET * 

* ADDRESS OF * 

* OPERAND FIELD * 
***************** 



*****Q2 ********** 
♦ADREST AP* 

*_*_*_*_*_*_*_*_* 

♦ GET DAY ♦ 

♦ FIELD ADDRESS ♦ 

♦ AND LENGTH * 
***************** 



♦AQ * 
* CI* 



***** 
*AQ * 
* CI* 



*****H1********** 
*CALC THE JULIAN* 

* ENDING DATE * 
*0F THE PREVIOUS* 

* MONTH * 

* * 
***************** 



*****H2 ********** 
♦DECRTN AV* 

*_*_*_*_*_*_*_*_* 

♦ CONVERT THE ♦ 

♦ DAY TO ♦ 

♦ DECIMAL ♦ 
***************** 



***** H3********** 

* CALCULATE * 

* THE DAY OF * 

* THE YEAR AND * 

* CONVERT * 

* TO DECIMAL * 
***************** 



*****p 4* ********* 

* CONVERT HOURS ♦ 

* TO SECONDS ♦ 

* AND STORE ♦ 

* IN TIMREG ♦ 

* * 
***************** 



*****G4********** 

* * 

* GET MINUTE ♦ 

* FIELD ADDRESS * 

* AND LENGTH ♦ 

* * 
***************** 



*****H4********** 
*DECRTN AV* 

*_*_*_*_*_*_*_*_* 

* CONVERT * 

* MINUTE FIELD * 

* TO DECIMAL * 
***************** 



*****P5********** 

* * 

* ADD SECONDS * 

* TO TOTAL * 

* IN TIMREG * 

* * 
***************** 



*****G5 ********** 

♦ MULTIPLY TOTAL ♦ 

♦ IN TIMREG * 

♦ BY 30u AND * 

♦ CALCULATE * 
♦ACTUAL TIME *K5* 
***************** 



*****H5 ********** 

* MOVE TIME TO * 

* CORE STORAGE * 

* LOCATION * 

* HEX '54' OR * 

* DECIMAL 84 * 
***************** 



I 



*K1 
IF THE PREVIOUS 
MONTH ENDING DATE 
IS 31, THE CURRENT 
DATE IS IN FEBRUARY. 
THE ROUTINE MUST 
MAKE A LEAP YEAR 
CHECK. 



**** 

* * 

* G3 * 

* * 
**** 



***** j 3********** 
*MOVE DATE INTO * 

* COMMUNICATION * 

* REGION, DISPL * 

* HEX 4F OR * 

* DECIMAL 79 ♦ 
***************** 



****K 3********* 



*************** 



.♦. 
J4 *. 
.* * 

* RESULT 

IS GT 60 
*. 

*. .* 



ILLCD 

X 

***** 

*AQ * 

* CI* 



****J5********* 



*************** 



SYSTOD 

_ DS 

TIMES 300* THEJTIME BEING 
SET IS EQUAL TO USER 
SPECIFIED TIME OF DAY PLUS 
MAXIMUM TIMER INTERVAL 
(15 1/2 HRSJ MINUS ELAPSED 
TIME. 



62 DOS IPL and Job control 



Page of GY24-5086-4, revised October 28, 1971, by TNL GN33-8686 



Chart BB. $JOBCTLA - Initialization and Control Statement Read 
Refer to Chart 04. 



. 


*A2 


BD-J4 


X 




BL-D3 


ACCTIGN4 .*. 




BM-H3 


Al *. 






.* IS *. 






YES .* PAUSE SW *. 






...*.0N -COMREG+56.* 






*. BIT 5 .* 







Bl *. 

.* WAS *. 

.♦LAST INPUT *. 

. ON SYSLOG . 

*. COMREG+56.* 

♦.BIT 2.* 

*. .* 

* VES 



**** 

* * 

* B4 * 

* * 
**** 



BC-D1 

BG-B3 

BM-B2 

CH-F5, H5 

CJ-B2,B4,C3,D2,K3 

CK-C3,C4,E3,F4,J2 

CL-K4 

CP-H5 

DG-J5 

DK-J1,H4,K1 

EB-B4 

EE-B4,J4,K4 

EL-F3 

GA-C4 

GB-B3 

GC-G1 

GD-F2,J5 

GE-K2 

GF-F3 

GG-B1 

GH-F5 

GL-C2,C4,C5,D3,E1 

GM-H3 

GR-J3 

HA-F2,G5,H4 

HF-F5 

HH-E3.H5 

JF-J5 



***** 
** * 
* A3* 



CFRSP X 

**A5******* 

* SET INPUT * 
* FROM SYSLOG * 

* SW ON-COMREG * 
*+56 BIT 2 OFF* 

* * 
*********** 



* B4 *. 



**** 
CONTROL .*. 

B4 *. 

.* *. 

.* UNIT * 

*. EXCEPTION 

*.ON SYSLST. * 



X 

***** 
*BL * 
* Bl* 



CI *. 
.* BATCH *. 
.* COMMAND *. YES 
. JUST ISSUED .*.... 
*.COMREG+59.* 
*.BIT 7.* 
*. . * 
* NO 



**D1******* 

* * 

SET PAUSE 

SWITCH 

OFF 

*********** 



*****Ei*** ******* 

* INITIALIZE * 

* FOR I/O-LOAD * 
*ADDR. OF SYSLOG* 

* DFB IN REG1 * 

* * 
***************** 



***F1*********** 

EXCPRG BH 
*_*_*_*_*_*_*_*_* 

DISPLAY MSG 
* '1I0OA READY * 
FOR COMM. • 
***************** 



**** 

* * 

* A5 * 

* * 
**** 



RESET 
BATCH INIT 

FLAG 

* * 

*********** 



ACCTBR1 .*. 

D2 *. 

NO .* JOB *. 

BR .*ACCOUNTING 

...*. INTERFACE 

*. SUPPORT . 



*****£ 4********** 
*RDSTMT BG* 
*-*-*-*-*-*-*-*-* 

* READ * 

* STATEMENT * 

* * 
***************** 



* OTHER 

PARTITIONS 
*. ACTIVE . 



OPNUMH IS THE 1 BYTE 

DATA INFORMATION 

FIELD IN A LOAD * 

INSTRUCTION. IT IS 

USED TO MAINTAIN A 

COUNT OF THE PARAMETERS 

PROCESSED FROM THE CURRENT 

CONTROL STATEMENT. 



ACCTLV1 

**E3******* 
* TURN OFF * 

* NO ACTIVE 
...X* PARTITIONS 

* SWITCH 



**D4******* 

* RESET * 
OPNUMH 

TO ZERO 
*D3 

* * 
*********** 



*********** 



*****p 2 ********** 

* INCREMENT * 

* PARTITION * 

* COUNT BY 1 * 

* IN COMMON * 

* TABLE * 
***************** 



* IS 


*. 


YES 


THIS STMNT 




*. ... 


*. BLANK . 


** 




*. . * 






*. . * 




X 


* NO 




***** 
*BG * 








* B3* 








* * 








* 








IGNORE 


X 






**P4******* 






* INIT REG 


* 




P0INT4 


* 




WITH 1 TO 




* 


START IN 


* 




*COL. 1 *K1 






***** 


****** 







**** 

* * 

* C5 * 

* * 
**** 



C5 *. 

.* DID * 

A BLANK 

STOP THE 

. SCAN 



**05******* 

* ASSUME // * 

* CTRL STMNT * 

*AND SET ROUTINE* 

*TO PROC OPTR * 

*COMM *H5* 

*********** 



E5 *. 

.* PARAM *. 

GT AND 

LT 8 CHAR 

*J5 



***** 

*BM * 
* B2* 



*****P5 ********** 

* INIT FOR * 

* BRANCH TABLE * 

* LOOK UP * 

* *K5 * 

* * 
***************** 



ACCTCL 

*****G2 ********** 

* CLEAR TIME * 

* COUNTERS IN * 

* PARTITION * 

* TABLE * 

* * 
***************** 



**H4******* 

* INCREMENT * *H5 

*REG P0INT4 BY* 

* 1 TO INDICATE * 

* NONBLANK IN * 

*COL 1 *K1* 

*********** 



*K1 
P0INT4 IS ULTIMATELY INITIALIZED TO A 
VALUE OF 5 OR 6. IT IS USED AS A MASK 
TO CHECK THE CONDITION SWITCHES IN THE 
FUNCTION OF A FOUND ARGUMENT IN THE 
BRANCH TABLE LOOKUP ROUTINE, BTLCOP. 



**J4******* 

* INIT REGS * 

* AND SWITCH 
* JBCSW4 FOR 

* SCAN RTN 

* * 
*********** 



*****K4********** 
*SCANR1 BF* 

*_*_*_*_*_*_*_*_* 

* GET 1ST OPND- * 

* SET COND CODE * 

* FOR STOP CHAR * 
***************** 



1. INCR P0INT4 BY 4 TO 
SET VALUE TO 5 GR 6, 
SEE NOTE Kl. 

2. MODIFY INST TSTYPE, 
TO TEST FOR MASK HEX 
05 OR HEX 06. 

3. SET BIT OF JBCSW4, 
IF ON SET OFF, IF 
OFF SET ON. 

THE PARAM LENGTH IS 
CHECKED BY COMPARING 
THE VALUE IN REG 
P0INT3. THE SCAN 
ROUTINE HAS SET THIS 
VALUE TO PARAM LENGTH 
MINUS 1 BYTE. 



THE BRANCH TABLE LOOKUP 
ROUTINE IS USED TO 
DETERMINE THE TYPE OF 
CONTROL STATEMENT BEING 
PROCESSED. WHEN A FIND 
IS MADE, THE FUNCTIONS 
OF THE ARGUMENT ARE UTIL- 
IZED AS IN FIGURE 8. 

1. CLEAR OLD ARGUMENT 
AND MOVE NEW ARGUMENT 
TO TABLE -ARGUMT-. 

2. SET THE REGISTER 
P0INT1 EQUAL TO 
BRANCH TABLE ADDRESS 
MINUS 10 BYTES. 



**** 

* * 

* C5 * 

*.' ..* 
**** 
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Chart BC. $JOBCTLA - Phase Vector Table Lookup 
Refer to Chart 04. 



ULOOP X 

*****A!*** ******* 

* INCREMENT * 

* POINTER * 

* POINT 1 BY 10 * 

* TO POINT TO * 
♦NEXT TBL ENTRY * 
******* ********** 



**** . *BG-G3,H 

* * 

* A3 * 

* * SUPLOG X 

**** *****A3********** 

* MOVE BR TBL * 

* DSPLT TO REG * 

* -P0INT2- SEE * 
*FIG 8 - FIELD 3* 

* * 
***************** 



CI *. 
.* *. 
NO .* INPUT *. 
...*. FROM SYSRDR . 
♦AND CANCEL.* 
♦. *B2 .* 
♦ . .♦ 
* YES 



JBCSWO-COMREG 
+56, BITS 2 AND 
4 ARE TESTED. 



1. THE CONDITION 
SWITCHES OF THE FOUND 
ARGUMENTS ARE TESTED 
SEE FIGURE 8. 

2. THE INSTR TSTYPE 
HAS BEEN MODIFIED IN 
THE CONTROL ROUTINE 
AT BB-B4. 



Dl *. 






.♦PROCESS*. 


*D2 


TEST JBCSW3- 


.♦ STATEMENT ♦. 


NO 


COMREG+56, BIT 


*. IN SPITE OF . 


*.. .. 




*. CANCEL .* 






*. *C2 .* 






. *. .* 


X 




* YES 


***** 
*BB * 




X. 


* B4* 






* * 






* 




X 


CONTROL 




TSTYPE .*. 






El *. 






.* *. 


*E2 


TEST JBOSW3- 


.* VALID *. 


NO 


COMREG+59, BIT 


*. FORMAT 


*.... 




*. *C2 .* 






*. . * 






*. .* 


X 




* YES 


***** 
*BM * 
* B2* 





X 

.*. 

Fl *. 

* * 

IS 
OPERAND 

UCS 



*****P2 ********** 

* * 

* SUPPRESS * 
X* OUTPUT ON * 

* SYSLST * 

* * 
***************** 



Gl *. 
SUPPR- .* *. 
ESSED .* LOGGING *. 
...*. *C2 



UNCONDITIONAL 



* 


A3 


* 




. 


* 




* 








**** 














X 










.*. 










HI *. 










* LOG * 








* 


ON 






*. 


SYSLOG 








* 


*D2 
*. .* 
*. .* 
* NO 



.CONDITIONAL 



.UNCLCG 

*****H2 ********** 
*LOGOUT BE* 

. YES X *_*-*-*-*-*-*-*-* 
.* X* LOG STATEMENT * 

* CN SYSLOG * 

* * 
***************** 



**** 

* * 

* A4 * 

* * 
**** 



*****A4********** 

♦LBLOUTF HN* 

*_*_*_*_*_*_*_*_* 

* PUT OUT * 

* VARIABLE LENGTH* 

* LABEL INFORM. * 
***************** 



TABLE A 


ROOT PHASE (A) 


.STMNT . 


ROUTINE . CHART. 


. // . 

. /* . 

* 
.IGNORE. 


SCANR2 . BF . 
CONTROL . BB . 
CONTROL . BB . 
IGNORE . BG . 



**** 
*FE * 
* E5 



***** 



ALLTSWO .*. 

C3 *. 

.* JOB *. 

NO .*ACCOUNTING *. 

...*. INTERFACE . 

*. SUPPORT .* 

♦ . .♦ 



*****D3********** 

* GET ADDRESS ♦ 

* OF ♦ 

* ACCOUNTING * 

* TABLE * 

* * 
***************** 



E3 *. 
.* 1ST *. 
NO .* EXEC 
,..*. AFTER JOB 
*. CARD 



ACCTNOP 

**P3******* 
*SET SWITCH * 

* TO SKIP JOB 
* ACCOUNTING 

* INTERFACE : 
* PHASE * 

*********** 



ACCTIGN2 

**G3******* 
*SET SWITCH * 

* TO SUPPRESS 
* WRITING REC 

* IF EXEC CD = 
* BAD * 

*********** 



H3 *. 

* IS * 

ROUTINE 

IN ROOT 

PHASE 



**** 
FETCHRF 

*****B4*** ******* 

* * 

* SET PHSNUM * 

* TO PROPER * 

* PHASE * 

* * 
***************** 



*****C 4 ********** 

* SAVE BEGIN * 

* ADDR. OF ROOT * 

* PHASE-ADDR * 
*OF LOC CONTROL * 

* * 
***************** 



*****D4********** 
*MTNCNT BK* 

*_ *_ *_ *_ *_ *_ *_ *_ * 

* RELEASE * 

* THE * 

* SYSTEM * 
***************** 



****E4********* 

* SVC 4 * 

* LOAD REQUIRED * 

* PHASE * 
*************** 



■ *B5 

: IF THE CONTROL STATEMENT 
WITH // IN COL 1+2, THE 
CURRENT ARGUMENT IS // . 
CONTROL IS TRANSFERRED TO 
THE SCANR2 SUBRTNE TO GET 
THE NEXT OPERAND. SCANR2 
EXITS BY BRANCHING LINKR1 
WHICH WAS LOADED ON CHART 
BB-K1 AND CONTAINS THE 
ADDRESS OF BB-A4. 



SEIZE 

THE 

♦SYSTEM. 



JOB CONTROL 


STATEMENT 


TABLE 


.STMNT 


PHASE 


.ROUTINE. 


CHART. 


.ACTION 


J 


.ACTION . 


GD . 


.ALLOC 


J 


•ALLOC . 


GP . 


.ASSGN 


D 


.ASSGN . 


CA . 


.CANCEL 


G 


.CANCEL . 


EE . 


.CATALR 


J 


.CATAL . 


GN . 


.CLOSE . 


D 


.CLOSE . 


CL . 


.DATE 


J 


.DATE 


GH . 


.DLAB 


K 


.DLAB 


HF . 


.DLBL 


K 


• DLBL 


HE . 


.DVCDN , 


F 


.DVCDN . 


DH . 


.DVCUP . 


F 


.DVCUP . 


DK . 


.ENTRY . 


J 


.ACTION . 


GD . 


.EOJ /+ . 


G 


.EOJ 


EC . 


.EXEC 


G 


.EXEC 


EF . 


.EXTENT . 


K 


.EXTNT . 


HJ . 


.HOLD 


J 


.HOLD 


GA . 


.INCLUDE. 


J 


.INCLUDE. 


GD . 


.JOB 


G 


.JOB 


EA . 


.LBLTYP . 


K 


.LBLTYP . 


HA . 


.LISTIO . 


F 


.LISTIO . 


DA . 


.LOG 


J 


.LOG 


GL . 


.MAP 


F 


.MAP 


DK . 


. MCT 


J 


.MCT 


GE . 


.NOLOG . 


J 


.NOLOG . 


GL . 


.OPTION . 


G 


.OPTION . 


EL . 


.PAUSE . 


J 


.PAUSE . 


GL . 


.PHASE . 


J 


.ACTION . 


GP . 


.RELSE . 


J 


.RELSE . 


GA . 


.RESET . 


F 


.RESET . 


DF . 


.ROD 


M 


.ROD 


JH . 


.RSTRT . 


K 


.RSTRr . 


HQ . 


.SET 


J 


.SET 


GG . 


.STOP 


J 


.STOP 


GM . 


.TLBL 


K 


.TLBL 


HB . 


.TPLAB . 


K 


.TPLAB . 


HA . 


.UCS 


J 


.UCS 


GB . 


.UNA 


F 


.UNA 


DM . 


.UNBATCH. 


F 


.DETACH . 


DL . 


.UPSI 


J 


.UPSI 


GK . 


.VOL 


K 


.VOL 


HA^ . 


.XTENT . 


K 


.XTENT . 


HG . 



I 



***************** 



J3 *. 

.* IS * 
REQUIRED 
PHASE IN 

. CORE 



PHASE N-THE JOB ACCOUNTING 
INTERFACE PHASE- IS CALLED 
BY THE JOB, EOJ, AND EXEC 
STATEMENT PROCESSORS. 



.X. 
X 

**** 

* * 

* A3 * 

* * 
**** 



*K5 EXIT PER 1'ABLE 



**** 

* * 

* B4 * 

* * 
**** 
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Chart BM. $JOBCTLA - Error Subroutines (Part 2 of 2) 
Refer to Chart 04. 



.♦ IS 
. JOB BEING 
♦.CANCELED . 



***** 
*BB * 
* B4* 



*D1 
BB-E5 
BC-E1 



*E1 
CY-K5 
DH-K5 

FG-C1,C3,C4,C5, J2 
GU-C1,C2,C3,C4,C5, 

F5»G2,G3 
HS-C1,C3,C4,D2 
JH-H5 



**** 
NVSERR X 

*****C2 ********** 

* * 

* POINT TO * 

* DESIRED * 

* MESSAGE * 

* 1S00A * 
***************** 

**** 



X.* * 



ERRCNL 
ERRRTN 

***D2 ************ 
LOGOUT BE 
*-*-*-*-*-*-*-*-* 
LOG STMNT 
* CN * 
SYSLOG 
***************** 



***E2 ******** 

LSTOUT BE 

*_*_*_*_*_*_*_*_* 

LOG STMNT 



ERRRTN2 

*****P2 ********** 

* CLEAR BUFFER * 
♦AREA TO BLANKS * 

* MOVE DESIRED * 

* MESSAGE TO * 

* BUFFER *J2 * 
***************** 



*****G2 ********** 
♦INSERT OPERAND * 
♦POSITION NUMBER* 

* INTO BUFFER * 

* PLUS 3 FROM * 

* OPNUMH *K2 * 
***************** 





*A5 




CA-A2,DL,D2,H1,H3 




CC-C2.E2 




CD-D2,D3,E3,H4 




CL-C1,C4,H3,K1 




CP-B2,B3,E3 




CQ-E4 




CW-B1 




DA-E1 


**** 


DF-E1 


* * 


DH-D1 


* B4 ♦ 


DK-B3.D1 


* * 


DL-C1,D1,E1 


**** 


DM-C1,C2,F1,H1,J2 




DN-D3 




DP-B4 


X 


EA-CltDlrEl 


• *. 


EF-G1, Jl 


B4 *. 


E1-C2.G1 


.* *. 


EN-B3 


NO .♦ AUTO *. 


EP-A2, A3, CI, Elf E4-.G1 


...*. CANCEL .♦ 


GA-C3,E3,E4,F3,K3 


*. . * 


GB-C1,F2,G2 


*. . * 


GC-D2,E4,F4 


♦ . .* 


GE-A4,B2,D1,E1,F1 


* YES 


GF-A3,G1,H1 




GG-C3,C4,D2,E4,F2, 




Gl ,G4, Jl 




GH-C2 ,D2,D4,D5, E4, 


ERRAP1 X 


E5,F2,H4 


*****C 4 ********** 


GJ-B1,B2,B3,C4,E3, 


* * 


E5,F4,G4,G5 


* RESET AUTO * 


GK-C1,C2,E4 


* CANCEL * 


GM-B1 


* SWITCH * 


GP-B1 ,B5,E4,E5,F4 


* * 


GQ-B2 ,D1,E1,J1,K1 


***************** 


GS-B1 ,B2,B4,E2 




GT-C5,D4,D5,E5 




HA-C1 ,D4,D5,Gl,G3 r Jl 




HB-E4,F4,H3,H4 




HC-D3,E3,G4 




HD-D3,E3,F1,F2,F5 


X 


H4.H5, J2 T K1 


.*. 


HE-D4 


D4 *. 


HF-C2,C5,D2,E1,E3, 


.♦ ♦. 


H1,K4 


NO . ♦ INPUT *. 


HH-B1,C2,D2,G1 


X..*. FROM .* 


HJ-B2 ,J2,F3 


*. SYSRDR .* 


HK-F4,G5,J2 


*. .* 


HL-D3 ,F3,F4 


*. .* 


HM-C1,C2,C3,D1,D2, 


* YES 


D3.H1 




HQ-CL,C2,D2,J2,K2 


• 


HR-D3,E3 



XYES .♦ LOG ♦ . 

*. ON SYSLOG . 

♦ .SPECIFIED.* 



F4 *. 
.* * 

NO .♦ JOB 

...*. IN 

♦.PROGRESS 



ERRAP X 

***G3************ 

MSGOUT BE 

*_*_*_*_*_*_*_*_* 

DISPLAY 
* MSG ON * 
SYSLOG 
***************** 



*****G4********** 

♦ MSGOUT BE + 
*_*_*_*_*_*_*_*_* 

* DISPLAY MSG * 

♦ ON SYSLOG ♦ 

* * 
***************** 



♦J2 
REGISTER POINT1 
CONTAINS ADDRESS 
OF DESIRED 
MESSAGE. 



♦ K2 
IF NUMBER 
EXCEEDS 9 
CONVERT TO 
HEX CHARACTER. 



***H3************ 


***H4*** ********* 


LSTOUT 


BE 


LSTOUT BE 


*_*_*_*_*_*_* 


-*-* 


*_*_*_*_*_*_*_*_* 


DISPLAY 




LOG MSG ON 


♦ MSG ON 


* 


* SYSLST ♦ 


***************** 


***************** 


X 

***** 






*BB * 






♦ A5* 




X 


* * 




*****J4*** ******* 


* 




* CLEAR BUFFER ♦ 


ACTRSP 




* AND PUT ♦ 

* JOB NAME IN ♦ 

* CANCEL MSG ♦ 



***************** 



*****K4 ********** 

♦ MOVE JOB NAME ♦ 

♦ TO MSG, MOVE ♦ 

♦ MSG 1I70I TO ♦ 

♦ OUTPUT BUFFER ♦ 

♦ * 
***************** 



***** 
*BL ♦ 
* Fl* 
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Chart BN. $JOBCTLA - Relocation Subroutines 
Refer to Chart 04. 



****A1********* 

* * 

* RELJBC * 

* * 



RELJBC 

*****3 1*****4 444 4 

*PICK UP NO. OF * 

* ENTRIES IN * 

* RELOCATION * 

* ADCON TABLE * 

* IN A REG *A5 * 
***************** 



*****C1***« ****** 

* PUT TABLE * 

* ADDRESS IN * 

* A REG. * 

* P0INT3 * 

* * 
***************** 



SELRLD 

*****D 1** ******** 

* INCREMENT * 



********444 4 4*4«* 



****4E1****4***4* 

* PUT THE VALUE * 

* OF THE FIRST * 
*ADCON INTO LOC * 

* ADDR OF THE * 

* SECOND ADCON * 
********4***4**4* 



END 
OF 
TABLE 



****g 1********4 

* RETURN TO * 

* CALLIfvG SEG * 

* * 
*************** 



**** A 3*****4*** 

* * 

* EXTRLC * 

* * 
44*4****4**4*4* 

44*4 I 



44*4 

EXTRLC X "- 

*****B3********** 

* PUT ADDRESS * 

* OF EXTERNAL * 

* SYMBOL TO BE * 

* RESOLVED IN * 

* A REG. * 
***************** 



4444* C 3******444* 

*EXTRTN BN* 

4_*-*_*_*_4-4-4-4 

* RELOCATE * 

* THE * 

* ADCON * 

*************444* 



***** 03****44 4*4* 

*MOVE RELOCATED * 

* SYMBOL * 

* BACK TO ITS * 

* ORIGINAL * 

* ADDRESS * 
444*******4444444 



*A5 
EACH ENTRY 
CONSISTS OF 
PAIR OF -S- 
TYPE ADCONS. 



4***E2********* 

* RETURN TO * 

* CALLING SEQ *. 

*************** 



YES .* ALL 

....*. SYMBOLS 
♦.RESOLVED 



****B4******44* 

* * 

* EXTRTN * 

* * 
****44444****** 



* CLEAR AND 

* MOVE ADCON 

* TO WORK AREA 
* 
*************** 



*****D4********** 

* ADD * 

* RELOCATION * 

* FACTOR * 

* TO ADCON * 

* * 
44444444********* 



****E4********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*****4****4*4** 



I 



*****P3********** 



***************** 
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Chart EC. $JOBCTLG - /S Statement Processor (Part 1 of 3) 
Refer to Chart 09. 



**** 

* * 

* A3 * 

* * 



***** 
*BC * 
* F4* 



**B1******* 


*B2 


SET * 


BC-F4 


RECORDER * 


EA-C2 


FILE BYPASS * 




Ski ON * 




-PASSRF * 




*********** 





*****B3********** 

* * 

* GET POINTER * 

* TO CORRECT * 

* PIB TABLE * 

* ENTRY * 
***************** 



* IS * 

FOREGROUND1 
*. RUNNING .* 



***** 
*ED * 
* Al* 



* PICK UP * 

* FOREGROUND1 * 

* END * 

* ADDRESS * 
***************** 



IS MAINT 

RTN TO BE 

.EXECUTED .= 



B5 *. 

.* JOB *. 

.♦ACCOUNTING *. 

. INTERFACE . 

*. SUPPORT .* 



*****C5 ********** 

* * 

* GET ADDRESS * 

* OF ACCOUNT * 

* TABLE - * 

* * 
***************** 



****** ]_*** ******* 

* RESET * 

* SYSPARM * 

* FIELD * 

* * 
***************** 



*****Q3********** 

* COMPUTE * 

* UPPER * 

* LIMIT OF * 

* AREA * 
***************** 



**D5******* 

* * 
TURN ON 
CATALOG 
SWITCH 

* * 
*********** 



**** 

* * 

* A3 * 



*****P1********** 

* GET ADDRESS * 
*0F COMREG EXT, * 

* RAS LINKAGE * 

* AREA, AND RAS * 

* TABLE * 
***************** 



STORBACK X 

*****£ 3********** 

* RESTORE * 

* COMREG * 

* HIGH * 
•* STORAGE * 
■ * ADDRESS * 

***************** 



* F3 *.X. 

* * 
**** 

NORESTOR X 

*****P3********** 
*CHKASG BK* 
*_*_*_*_*_*_*_*_* 

* CHECK * 

* SYSRDR * 

* ASSIGNMENT * 
***************** 



* ZERO RIG * 

* TO SPECIFY * 

* ENTRY FROM * 

* JOB CONTROL * 
***************** 



*****P5 ********** 

*INITL EK* 
*- *_*_*_*_*_*_*_* 

* RELOCATE * 

* ADDRESS * 

* CONSTANTS * 
***************** 



*****Gi** ******** 

* * 

* GET DYNAMIC * 

* REALLOCATION * 

* CODE FOR * 

* PARTITION * 
***************** 



G3 *. 
.* IS *. 

SYSRDR *. NO 
ASSIGNED .*... 



*****G 4 ********** 

* SET UP * 

* FETCH FOR * 

* 'MAINEOJ* *X 

* ROUTINE * 

* * 
***************** 



HI *. 

.* WAS *. 
* PARTITION * 

DYNAMICALLY 
*. REALLOC .* 



**H3******* 

* * 
SET EOJ 

BIT ON IN 
SYSRDR 

* PUB * 
*********** 



*****H5 ********** 

* * 

* SET UP * 
' * FETCH FOR * 

* 'MAINJP' * 

* ROUTINE * 
***************** 
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Chart ED, $JOBCTLG - /& Statement Processor (Part 2 of 
Refer to Chart 09. 



3) 



**** 

♦ EC * 

* A5 *... 



**** 

* * 

* A2 * 

* * 
**** 



Al 



*. 



IS 

LABEL 

OPERATION 

. IN STD . 

♦.MODE .* 

*. .♦ 

* NO 



* RESET * 
LABEL 

SEQUENCE 
SWITCHES 

* -JBCSW5 * 
*********** 



SYSIPT 

DISK 
DEVICE 



.* IS *. NO 

*. EOJ POSTED .*... 
*. IN PIB .* 



**** 
* C2 



*.X. 



*****C1 ********** 

* * 

* INDICATE * 

* EOJ * 

* PROCESSING * 

* * 
***************** 



_*_*_*_*_* 

* RESET TO * 

* USER LABEL * 

* MODE * 
***************** 



t****El* ********* 

* * 

* TURN OFF * 

* EOJ * 

* PROCESSING * 

* * 
***************** 



*****F1** ******** 

♦USRLBL EN* 
*_*_*_*_*_*_*_*_* 

* CLEAR * 

* LABEL * 

* CYLINDER * 
***************** 



*****G1 ********** 

* TEBS EE* 
*_*_*_*_*_*_*_*_* 

* CLEAR * 

* TEB * 

* COUNTERS * 
***************** 



**H1******* 
* TURN ON * 

* UNIT 
EXCEPTION 

* SWITCH IN 
♦SYSIPT DFB * 

*********** 



*****jl********** 

*CHKASG BR* 
*_*_*_*_*_*_*_*_* 

* CHECK SYSIPT * 

* ASSIGNMENT * 

* * 
***************** 



IS 

SYSIPT 

.ASSIGNED 



**** 
NCIPT X 

*****C2 ********** 
♦CHKASG BK* 

*-*-*-*-*-*-*-*-* 

* CHECK * 

* SYSRDR * 

* ASSIGNMENT * 
***************** 



**E2******* 

* SET EOF * 
IN SYSRDR ; 

PIB AND PUB 
CFF 

* * 
*********** 



**** 

* * 

* C2 * 

* * 

**** 



N0IPT7 

*****P2 ********** 
*RSTASG FB* 
*_*_*_*_*_*_*_*_* 

* RESET ALL * 

* I/O * 

* ASSIGNMENTS * 
***************** 



*****G2 ********** 

* SET UP EOJ * 

* MESSAGE * 

* AND RESET * 

* JOB NAME * 

* TC NGNANE * 
***************** 



*****H2 ********** 

* RESET JOB * 

* NAME IN SAVE * 

* AREA FOR THIS * 

* PARTITION * 

* * 
***************** 



*****j2 ********** 

* * 

* PUT TIMER * 

* VALUE IN * 

* LOC TIMEH * 

* * 
***************** 



*****K2 ********** 
*GETDUR FA* 
*_*_*_*_*_*_*_*_* 

* GET JOB * 

* DURATION * 

* TIME * 
***************** 



.* IS 
.X*. EOF 

♦.POSTED IN. 
*. PUB .♦ 



**B3******* 

* SET PIB * 
AND PUB 

EOJ 
OFF 

* * 
*********** 



* C2 ♦ 

* * 
**** 

**** 

* * 

* D3 * 

* * 
**** 



_*_*_*_*_*_* 

* WAIT FOR * 
♦PREVIOUS SYSLOG* 

♦ I/O TO FINISH * 
***************** 



*****£ 3********** 

♦GETIME FA* 
*_*-*_*_*_*_*_*_* 

* " GET TIME * 

* OF DAY * 

* * 
***************** 



F3 *. 

.* JOB ♦. 

.♦ACCOUNTING *. 

. INTERFACE . 

*. SUPPORT .* 



**G3*****^* 

* SET JOB * 

♦ ACCTG INTER- * 
♦FACE BR. SW AND^ 

♦ EOJ RECORD ♦ 

♦ INDICATOR ♦ 
*********** 



*****H3********** 

♦ PUT EOJ TIME ♦ 

♦ IN ACCOUNT * 

♦ TABLE AS ♦ 

♦ PACKED ♦ 

♦ DECIMAL ♦ 
***************** 



ACCTIGN2 

*****j 3********** 

♦ SET MESSAGE ♦ 

♦ CHARACTER * 

♦ LENGTH TO ♦ 

♦ 26 * 

♦ * 
***************** 



**** 

* * 

* B5 ♦ 

* * 
**** 



* CLEAR ♦ 
X* INPUT ♦ 

* BUFFER ♦ 

* * 
***************** 



*****B4********** 
♦EXCPRG BH+ 
*_*_*_*_*_*_*_*_* 

♦ READ ♦ 

♦ FROM THE ♦ 

♦ DEVICE ♦ 
***************** 



*F4 
JBCSW3 BITA 
INDICATES JOB 
IS BEING RUN 
OUT OF SEQUENCE 
WITH A TEMPORY 
ASSIGNMENT 
FOR SYSRDR. 



**** 

* * 

* 85 * 

* * 
**** 



VALID 

JOB NAME 

.IN BUFFER. : 



*****C5********** 

* * 

* SET * 

* CHARACTER ♦ 

* LENGTH TO ♦ 

* 8 * 
***************** 



*****D5********** 

♦TIMOUT FA^ 

*_*_*_*_*_*_*_*_* 

* LOG TIME ♦ 

* ON ♦ 

* SYSLOG * 
***************** 



*****E5********** 

* * 

* RESET * 

* LINE COUNT * 

* TO 1 ♦ 

* * 
***************** 



F5 *. 
.* PAUSE ♦. 
NO .* AT EOJ 
. ..*. REQUESTED 



**G5+*+^*+* 

* SET * 
JBCSWu 

FOR 
JCBCTLA 

* * 
*********** 



NOPSE X 

**H5**+*^* 
♦RESET LINK * 
♦CONTROL BYTE 
* IN JBCSW1 
♦ BITS 0,2,3, 
* 4, AND 7 * 
*********** 



**j5******* 

* RESET * 

* JBCSW2 * 
AND JBCSW3 

* ro ♦ 

* STANDARD ♦ 
*********** 



**** 

E3 ♦ 

E2* 



I 
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Chart EG. $JOBCTLG - EXEC Statement Processor 
Refer to Chart 09. 



(Part 2 of 5) 



**** 
* * 

* A2 * 

* * 
**** 



* CLEAR * 

* OUTPUT * 

* BUFFER * 

* * 
***************** 



**Bi******* 

*TURN ON THE* 

♦ALLOW OUTPUT * 

* ON SYSLST SW, 

* JBCSW4, BIT * 

* 1=0 * 

*********** 



* SPACE ONE * 

* LINE ON * 

* SYSLST * 
***************** 



NLS7 X 

*****Ql********** 

*LBL0LT FE* 

*_*_*_*_*_*_*_*_* 

♦CHECK PREVIOUS * 

* LABEL * 

* OPERATIONS * 
***************** 



**** 

* * 

* A3 * 

* * 
**** 

X 

*****A3********** 



. ♦ FETCH *. YES * POINT * 


*. OF A $ ...... * TO 1ST * 


*. PHASE .♦ 


* CIDIR * 


*. .* 


* ENTRY * 


*. .* 


x ***************** 


* NO 


***** 




*EH * 




* H3* 




* * 




* 


. 


NOPHDB X 


X 


GTNAME .*. 


*****B2 ********** 


B3 *. 


♦CLRDOA EH* 


.* PHASE *. 


*_•*_*_*_*_*_*_*_* 


.♦NAME SWITCH*. NO 


* CLEAR * 


♦FOR COMPILE AND^.. 


* OUTPUT * 


*. GO MODE .* 


* BUFFER * 


*. *A5 .* 


***************** 


*. .* 



*****Q2********** 

*SET UPPER HEAD * 

* LIMIT IN DISK * 
*REC IN AND DISK* 
♦REC OUT INFOR- * 

* MATION TABLES * 
***************** 



*****D2 ********** 
♦CHKASG BK* 

*-*-*-*-*-*-*-*-* 

* CHECK ASSIGN. ♦ 

* FOR SYSRES * 

* AND GET PUB * 
***************** 



*****P1* ********* 

* * 

* UPDATE * 

* TRACK * 

* NUMBER * 

* * 
***************** 



*****P2 ********** 

* INITIALIZE * 

* INPUT AND * 
*CUTPUT DF1 WITH* 
*2314 CONSTANTS * 

* *K2 * 
***************** 

**** * 

*EH * .X 

* Jl 



*.X. 



**C3******* 

* SET PHASE * 

♦ NAME SWITCH, * 

* GTNAME, TO BR 

*FOR NOT COM- * 

*PILE AND GO* 

*********** 



***** D3********** 

* SAVE NAME * 

* FOR INITIAL ♦ 

* FETCH AND * 

* SAVE LOAD * 

* ADDRESS * 
***************** 

**** 



END 

OF 

.DIRECTORY. 

*. *E5 .* 



*****A4********** 

* LOAD ADDR OF ♦ 
♦PARTITION SAVE ♦ 

* AREA INTO * 

* WRKRG1 ♦ 

* * 
***************** 



*****B 4* ********* 

* ADD LENGTH OF * 

* PARTITION SAVE * 
*AREA AND LABEL * 

* TO WRKRG1 * 

* * 
***************** 



C4 *. 
.*POINT3 *. 
* GT WRKRG1 
*C5 



BEGADDR 

*****D 4* ********* 

* LOAD END OF * 

* LABEL AREA * 

* INTO * 

* P0INT4 * 

* * 
***************** 



♦ A5 
NO=COMPILE AND 

GO 
YES=NOT COMPILE 

AND GO 



*C5 
IS START OF PARTITION 
SAVt AREA GREATER 
THAN THE END OF 
LABEL AREA. USE 
GREATER AS LOAD 
ADDRESS. 



♦ CIDEND 
COPYSW 



F3 *. 

.* ENTRY *. 

* TO BE * 

INCLUDED IN 

C PHASE DIR.* 

♦. *F5 .* 

♦ . .* 

♦ YES 



*E5 
AN ASTERISKS) 
MEANS LOGICAL 
END CF DIRECTORY 



*F5 
IN COMPILE AND 
GO MODE THE 
ANSWER IS 
ALWAYS YES 



**Hl********** 

RESET TRACK * 

NUMBER AND ♦ 

UPDATE * 

CYLINDER * 

NUMBER * 

************** 



**** 
RDCID X 

*****G2 ********** 

* LOAD ADDRESS * 

* OF DIRECTORY * 

* INPUT DFB * 

* INTO WRKRG3 ♦ 

* * 
***************** 



***H2 ************ 
EXCPRG BH 
**_*_*_*_*_*_*_** 
READ A 
* CIDIR * 
RECORD 
***************** 



***** 
*EH * 
* HI* 



*****G3********** 

* * 

* PUT * 

* ENTRY * 

* IN OUTPUT * 

* AREA * 
***************** 



*****H3*+******** 

♦ COMPUTE * 

♦ NUMBER OF ♦ 

♦ BYTES IN * 

♦ PHASE ^H5 * 

♦ * 
***************** 



*H5 
THE NUMBER OF FULL 
BLOCK TIMES 1728 
(1688 FOR 2314) , PLUS 
THE NUMBER OF BYTES 
IN THE LAST BLOCK 
ECUALS THE NUMBER 
OF BYTES IN THE 
PHASE 



* LOAD ADDRESS ♦ 

* OF DIB * 

* TABLE INTO ♦ 

* WRKRG1 * 
***************** 



*****K1********** 

♦ STORE * 

♦ CURRENT * 

♦ ADDRESS OF * 

♦ SYSLNK INTO ♦ 

♦ DISK ADDRESS ♦ 
***************** 



J2 ♦. 
* 

END 

OF 

CIDIR 



*. 



NO 



♦ K2 

BLOCKS PER TRY=15 
CORE IMAGE LIB 
BLKSIZE=1688 BYTES 



ES 


,* PROGRAM ♦ 


NO 


"*• 


*. SELF- 

*RELOCATABLE* 

*. .* 


.*.... 


X 


♦ . .* 


X 


***** 


* YES 


***** 


♦ EH ♦ 




♦ EH * 


♦ A2^ 




* Bl* 


* * 




* * 


* 




* 


ID END 




ADD LNGTH 




*****K3********** 




♦ LOAD ADDR 


* 




♦ OF START OF 


* 




♦ PROBLEM PROG 






♦ AREA INTO 


* 




♦ POINT3 


* 




***************** 
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Chart EH, $JOBCTLG - EXEC Statement Processor (Part 3 of 5) 
Refer to Chart 09. 



CIDEND X 

*****A2 ********** 

* SET RETURN * 

* ADDRESS FROM * 

* THIS RTN TO * 

* NCPHDB * 

* * 
***************** 



****A3********* 

* * 

* WRTPHD * 

* * 
*************** 



.*EG-J3,C4,D4 



ADDLNGTH X 

4****31********* 

* ADD NC. OF 

* BYTES IN 

* PHASE TO 

* LOAD 

* ADDRESS 
4*************** 



.* IS IT *. 
.* GREATER *. 
.THAN PREVIOUS. 
*. MAX .* 



WRTPHD 

*****B2 ********** 

* LOAD ADDR * 

* CF DIREGTORY * 

* OUTPUT DFB * 

* IN WRKRG3 * 

* * 
***************** 



**D1 ********* 
STORE THE,. 

NEW ADDRESS 
IN GOMREG 



***************** 



*****A4*** ******* 

* * 

* GET * 

* PHASE * 

* HEADER * 

* (SVC 23) * 
***************** 



*****B4 ********** 
*MTNCNT BK* 
*_*_*-.*_*_*_ *_ *_ * 

* SEIZE * 

* THE * 

* SYSTEM * 
***************** 



*****C4********** 

* CAUSE * 

* RELOAD OF * 

* PHASE IF * 

* PROGRAM IS * 

* NOT PRESENT * 
***************** 



*#***E1********** 

* INCR OLTPLT * 

* AREA POINTER, * 

* POINT2, FOR * 

* NEXT ENTRY * 

* * 
***************** 



WRTPHDR 

*****E2 ********** 
♦EXCPRG BH* 
*_*_*_*_*_*_*_*_* 

* OUTPUT * 

* DIRECTORY * 

* * 
***************** 



****E3********* 

* * 

* CLRDOA * 

* * 
*************** 



D4 *. 






.* WAS *. 






.* LOAD 


* 


NO 


*. ADDRESS 


.*.... 


*. GIVEN . 


* 




*. .* 






*. 4 * 




X 


* YES 




***** 


**** . 




*FG * 


* * . 




* D2* 


* E4 *.X. 




* * 


* * . 




* 


**** 




PNPERR 


TSRWR X 






*****E4********** 


* LOAD ADDR 




* 


* OF PIB 




* 


* TABLE INTO 




* 


* POINT1 




* 



...*. OUTPL'T 


.* 


*. AREA .* 




*. .* 




X *. .* 




**** * YES 




HI * 






* 






**** 






X 




***Gi ****** ****** 


WRTPHD 


EH 


**_*_*_*_*_*_* 


-** 


WRITE BLOCK 




* IN SYSRES 


* 


PHASE DIR 




***************** 


**** 






*EG * 






* F3 *.X 






* * 






**** 






GTNXNT X 




*****H1 ********** 


* INCR INPUT 


* 


* AREA POINTER, 


* 


* POINTl, FOR 


* 


* NEXT CIDIR 


* 


* ENTRY 


* 


******** 


********* 



* CLEAR * 

* OUTPUT * 

* AREA * 

* * 
***************** 



*****G2 ********** 

* LOAD ADDR OF * 

* OUTPUT BUFFER * 

* IN REG POINT2 * 

* * 

* * 
***************** 



***** 
*EG * 

* A2* 



.* MPS *. NO 
*. SUPPORTED .*... 
*. .* 



***************** 



**P4******* 

♦ SET SWITCH * 
* IN PIB TO 

DISALLOW 
♦SYSRES I/O 

* * 
*********** 



*****G4********** 

* ZERO REG 4 * 

* FOR FETCH * 

* OR LOAD * 

* INSTRUCTION * 

* * 
***************** 



*****H4********** 

* LOAD ADDR OF * 

* PARTITION * 

* SAVE AREA * 

* FROM PIB TO * 

* P0INT2 * 
***************** 



1 *. 




X 


*****j 3********** 


*****J4********** 


*. 




****j2********* 


♦MTNCNT BK* 


* LOAD ADDR * 


END *. 


YES 


* RETURN TO * 


*_*_*_*_*_*_*_*_* 


* FOR FETCH * 


OF 


*.... 


* CALLING * 


* RELEASE * 


* OR LOAD * 


INPLT .* 




* SEQUENCE * 


* SYSTEM * 


* INSTRUCTION * 


AREA .* 




*************** 


* * 


* INTO LINKR1 * 


*. .* 


X 




***************** 


***************** 


* NO 


***** 
*EG * 
* G2* 








X 


* * 








***** 


* 








*EG * 


RDCID 








* E3* 






X 


X 


* * 






****** 3********** 


*****K4********** 


* 






* LOAD ADDR OF * 


♦ ZERO REG * 


CHKEND 






* SAVE AREA IN * 

* REG AND * 

* ADDR OF PHASE * 


* AND SET * 

* KEY (REG * 

* TO -1) * 



***************** 



***** 
*EJ * 
* Al* 
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Chart FE. $JOBCTLG - Label Processing Subroutines (Part 1 of 2) 
Refer to Charts 08 and 09. 



* A3 * 

* * 
**** 



* A4 * 

* * 
**** 



****A1********* 

* * 

* XBLOUT * 

* * 
*************** 



STATEMENT 

IN PROPER 

SEQ 



CI 
.* I 
LABE 
PRE 



S *. 
L BLK 

SENT 



****C2********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 



**D1******* 

* SET BLOCK * 
NOT PRESENT 

FLAG 

* * 
*********** 



NO .* FILE 
...*. SEQUENTIAL 
*. DEVICE . 
*.TYPE .* 



*****fl**** ****** 

* LOAD ADDRESS * 

* OF LAST SD. * 

* ENTRY FROM * 

* LABEL SAVE * 
*AREA TO WRKRG1 * 
***************** 



**** 

* * 

* E2 * 

* * 
**** 



**F2******* 

* * 
TURN OFF 

OUT OF 
SEQUENCE 

* FLAG * 
*********** 



X 
***** 
*FG * 
* C5* 



*********** 



LBLOUTCA 

*****H 1******4*** 

* LOAD START * 

* AND END * 

* TRACK NO. FOR * 

* STO LABEL IN * 

* WRKRG1 * 
***************** 



A3 
* I, 
THIS 



*****B3********** 

* CALCULATE * 

* DISPLACEMENT * 
*INTO TRK ALLOC * 
♦TABLE FOR THIS * 
*LBL + PARTITION* 
***************** 



*****C3********** 

* LOAD START * 

* AND END TRK. * 

* NO. INTO * 

* HRKREG1 * 

* * 
***************** 



LBLOUTOB 

*****D3********** 

* PUT END TRK * 

* NO. INTO * 

* WRKRG4 * 

* FROM * 

* WRKRG1 * 
***************** 



*****E3********** 

* SHIFT * 

* WRKRG1 * 

* SO IT WILL * 

* CONTAIN ONLY * 

* START TRK NO. * 
***************** 



*****p 3** ******** 
*PUT START TRK. * 
*IN COMPARE INST* 

* FOR EOF LOOP * 

* CONTROL * 

* * 
***************** 



*****G3********** 

* * 

* DECREMENT * 

* START TRK * 

* NO. * 

* * 
***************** 



*****A4********** 

* LOAD DATA * 

* LENGTH INTO * 

* WRKRG3 AND * 

* ADD KEY * 

* LENGTH * 
***************** 



*****B4********** 

* STORE * 

* LENGTHS * 

* INTO * 

* WRITE AND * 

* CHECKS CCWS * 
***************** 



*****C4********** 

* COMPUTE * 

* SPACE NEEDED * 

* ON TRACK * 

* FOR DATA * 

* * 
***************** 



*****04********** 

* GET * 

* REMAINING * 

* TRK * 

* CAPACITY * 

* * 
***************** 



*****E4********** 

♦LBLOUT1 FE* 

*_*_*_*_*_*_*_*_* 

* CALCULATE THE * 

* NEW REMAINING * 

* TRK. CAPACITY * 
***************** 



*****A5********** 

* RESET REC * 

* NO. TO * 

* AND WRKRG1 TO * 

* NO. BYTES PER * 

* TRACK * 
***************** 



LBLOUT1 X 

*****B5 ********** 

* CALCULATE * 

* NEW REMAINING * 
♦TRACK CAPACITY * 



***************** 



ENOUGH 

ROOM ON 

TRACK 



* NO 



C5 *. 






.♦ENOUGH * 






ROOM 


'* 


NO 


ON 




* .... 


. TRACK 


* 




*. .* 






*. .* 




X 


* YES 




**** 






* * 


. . • »xl 




* G4* 


X 


* * 


***** 




**** 


*FF * 






* Bl* 







**** 

* * 

* G4 * 

* * 
**** 

X 
*****G4********** 

* * 

* LOAD CURRENT * 

* TRK. NO. IN * 

* WRKRG1 ♦ 

* * 
***************** 



*****J1 ********** 


* 


REPLACE END 


* 


* 


TRK. NO. WITH 


* 


* 


UPPERHEAD 


* 


* 


NO. IN 


* 


* 


WRKRGL 


* 


***************** 




X 
**** 






* * 






* A3 * 






* * 






**** 





H3 *. 


H4 *. 


.* IS *. 


.* LAST *. 


NO .* THIS A *. 


YES .TRK. OF AREA*. 


....*. NEW AREA .* 


...*. EXHAUSTED .* 


*. .* 


*. . * 


. *. .* 


*. .* 


*. .* 


X *. .* 


* YES 


***** * no 




*FG * 




* C3* 




* * 

* 




LAXERR 


'. X 


X 


*****j 3**** v ***** 


*****J4********** 


* SET THE * 


* INCREMENT * 


* WRITE DISK * 


* TO NEXT TRK * 


* HEAD NO. TO * 


* AND STORE IN * 


* START TR-L * 


* WHHADD * 


* * 


* * 


***************** 


***************** 


I x! 


* 
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Chart FF. $JOBCTLG - Label Processing Subroutines (Part 2 of 2) 
Refer to Charts 08 and 09, 



***** 

*FE * 
* C5* 



**** 

* * 

* B2 * 

* * 
**** 



***** B i*** ******* 

* * 

* INITIALIZE * 

* SEEK TRACK * 

* AND RECORD * 

* NUMBER * 
***************** 



*****Ci********** 

* * 

* UPDATE WRITE * 

* RECORD * 

* NUMBER * 

* AREA * 
***************** 



*****D1 ********** 

*MTNCNT BK* 
*_*_*_*_*_*_*_*_* 

* RELEASE * 

* CONTROL * 

* * 
***************** 



*****El********** 

* * 

* LOAD ADDRESS * 

* OF THE * 

* SYSRES CCB * 

* INTO REG1 * 
***************** 



Fl *. 

.* *. 

START 

OF 

.NEW AREA . 

*. .* 

*. .* 

* YES 



*****B2 ********** 

* * 

* LOAD LINK * 

* REG FOR * 

* IOROUT * 

* RETURN * 
***************** 



*****C2 ********** 

* * 

* SET HEAD * 

* NUMBER * 

* FOR EOF * 

* WRITE * 
***************** 



.* FIRST *. NO 
*. TRK OF THIS .*... 
*. AREA .* 



***D3************ 
IOROUT FC 
**_*_*_*_*_*_*_** 

.X ISSUE 

* I/O * 

***************** 



*****E2 ********** 

* * 

* SET KEY * 

* LENGTH * 

* TO 8 * 

* * 
***************** 



*****P2 ********** 

* * 

* RESTORE * 

* DATA LENGTH * 

* FROM WRKRG1 * 

* * 
***************** 



*****Ql ********** 

* * 

* LOAD DATA * 

* LENGTH INTO * 

* WRKRG1 FOR * 

* SAVING * 
***************** 



*****H1********** 

* * 

* SET DATA * 

* AND * 

* KEY LENGTH * 

* TO ZERO * 
***************** 



**** 

* * 

* B2 * 

* * 
**** 



OPLBNF 

***G2 ************ 
IORCUT FC 
**_*_*_*_*_*_*_** 

ISSUE 
* I/O * 

***************** 



*****H2 ********** 
*MTNCNT BK* 
*_*_*_*_*_*_*_*_* 

* SEIZE * 

* SYSTEM * 

* * 
***************** 



****j2********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 
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Chart FG. $JOBCTLG - Error Subroutines 
Refer to Charts 08 and 09. 



****A1********* 



*A2 
ENTRY IS FROM OPTION 
STATEMENT PROCESSOR. 
LINK AND CATAL 
OPTIONS INVALID FOR 
FOREGROUND PARTITION. 



*A4 

EF-F3 

EN-D2 
FE-E2,F2 



*************** 








***** 

*EF * 

* H2* 

* * 

* 


X 








OTSERR1 X 


Bl *. 








**B5******* 


.* *. 


****B2 ********* 






* TURN ON * 


.♦FOREGROUND *. NO 


* RETURN TO * 






* AUTO CANCEL * 


*. PARTITION .*.... 


....X* CALLING SEQ * 






* SWITCH * 


*. .* 


* * 


* JBCSW4 * 


*. .* 


*************** 


***** 


***** 


* BIT5 * 


*. .* 




*FE * 


*FB * 


*********** 


* YES 




* H4* 


* F2* 








* * 


* * 


**** * 


• 




* 


* 


* * * 

* A4 *.X. 










* * 










**** 


X 




LAX ERR X 


NDTERR X 


OTSERR X 


*****c 1** ******** 




*****C3********** 


*****C4********** 


*****C5********** 


* POINT TO * 




* POINT TO * 


* POINT TO * 


* POINT TO * 


* DESIRED * 




* DESIRED * 


* DESIRED * 


* DESIRED * 


* MESSAGE * 




* MESSAGE * 


* MESSAGE * 


* MESSAGE * 


* 1S00D * 




* 1L10D * 


* 1A20D * 


* 1S10D * 


* *F3 * 


***** 


* *F3 * 


* *F3 * 


* *F3 * 


***************** 


*EH * 
* D4* 


***************** 


***************** 


***************** 




* * 










* 




X.X 




X 






X 




***** 






***** 




*BM * 






*BM * 




* D2* 


PNPERR X 




* D2* 




* * 


**02 ******* 




* * 




* 


* TURN ON * 




* 




ERRRTN 


* AUTO CANCEL * 
* SWITCH * 

* JBCSW4 * 
* BIT5 * 

*********** 




ERRRTN 





*****E2 ********** 



* REINITIALIZE * 



***************** 







F2 *. 






.* *. 






.* INPUT *. NO 






*. FROM .*.... 






*. SYSRDR .* 


***** 




*. .* 


*FB * 




*. .* 


* D2* 




* YES 


* * 






* 






LNAERR X 




X 


*****G1********** 


*****G2 ********** . 


* POINT TO 


* 


* CHANGE * 


* DESIRED 

* MESSAGE 


* 


* ACTION CODE * 


* 


* OF MESSAGE * 


* 1C10A 


* 


* TO I * 


* *F3 


* 


* * 


***************** 


***************** 


X 
***** 






*BL * 






* B3* 




X 


* * 




**H2******* 


* 




* MODIFY * 


OERRTN 




* BRANCH * 
* VECTOR * 

* TABLE * 



*F3 

^MESSAGE** I 'DESCRIPTION 

IiA26D**"***iNVALiD"DEViCE*TYPE 

IiciOA* < "** , PLEASE"ASsiGNTsYSRDRr*** 
. SYSIPTtSYSLNK) 

!iC3NI*""!"PR6GRAM*N6T"F6uND 

IiLiOD , *"** , LABEL*AREA*EXHAUSTED 

"isOOD** " ". * INVAL ID 'STATEMENT 

.IlsiOD"" *. "sTATEMENT'oUt'of* SEQUENCE* 



*********** 



*****j2 ********** 

* POINT TO * 

* DESIRED * 

* MESSAGE * 

* 1C3NI * 

* *F3 * 
***************** 



X 

***** 

*BM * 
* D2* 
* * 
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Chart GA. $JOBCTLJ - RELSE and HOLD Statement Processors 
Refer to Chart 11. 



***** 

*BC * 
* F4* 



***** 
*BC * 
* F4* 



**** 

* * 

* B4 * 

* * 
**** 



RELEASE X 

*****B1********** 

* LOAD P0INT4 * 

* WITH ADDR OF * 

* INSTR THAT SETS* 

* HOLD FLAG OFF * 

* IN PIB * 
***************** 



HOLD X 

*****B3********** 

* LOAD POINT4 * 

* WITH ADDR OF * 
♦INSTR THAT SETS* 

* HOLD FLAG ON * 

* IN PIB. * 
***************** 



RLSENT 



X 

.*. 
C3 *. 
.* MULTI *. 
NO .*PROGRAMMING*. 
,..*. ENVIRONMENT .* 



*****D3********** 
*SCANR2 BF* 
*_*_*_*_*_*_*_*_* 

* POINT TO 1ST * 

* OPERAND * 

* -Fl OR F2- * 
***************** 



E3 *. 
.* DID *. 
NO .* A BLANK * 
X..*. OR COMMA 

*.END SCAN .* 



HOLD2 X 

♦*B4******* 
* SET HOLD * 

* FLAG ON OR * 
* OFF IN 

* CORRECT * 
*PIB. *B5* 

*********** 



.* DID *. YES 
*. BLANK END .*.... 
♦ .LAST SCAN.* 



P0INT4 CONTAINS ADDR 
OF CORRECT 
INSTRUCTION. 
POINT3 CONTAINS ADDR 
OF CORRECT PIB. 
THE HOLD FLAG IS 
BIT 4 OF PIB+12 
1 EQUALS HOLD U 
EQUALS RELEASE. 



***** 
*BB * 
* B4* 



*****04 ********** 
♦SCANR3 BF* 
*_ *_ *_ *_ *_*_*_*_* 

* POINT TO 2ND * 

* OPERAND * 

* -Fl OR F2- * 
***************** 



DID *. NO 
BLANK END . *. . . 
. SCAN . * 



♦ . 



.X. 
X 

.♦. 



***** 
*BM * 
* C2* 



F3 

.♦ ♦. 

.♦ OPERAND 
. LENGTH EQ 
♦. 2 CHAR . 



***** 
*BM ♦ 
* C2* 



*****G3********** 
♦LOAD PIB TABLE ♦ 
♦ADDR IN POINT2 ♦ 
♦AND FOREGROUND * 

* 1 PIB ADDR IN ♦ 

♦ POINT3 ♦ 
***************** 



IS ♦. 

OPERAND 
Fl .♦ 



***** j 3********** 

* * 
♦LOAD FOREGROUND* 

♦ 2 PIB ADDR * 

♦ IN POINT3 ♦ 

* * 
***************** 



...X. 
X 

**** 



***** 
*BM * 
♦ C2* NVSERR 
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Chart HJ, $JOBCTLK - EXTENT Statement Processor (Part 1 of 3) 
Refer to Chart 14. 



***** 

*BC * 
* F4* 



*A5 
DEFAULT VALUES 
SET UP IN DLBL 
ROUTINE FOR. 

1. VOL SERIAL 

2. EXTENT TYPE 

3. EXTENT SEQ. NO. 

4. EXTENT LOWER LMT . 

5. EXTENT UPPER LMT. 

6. LOGICAL UNIT 

7. BIN NO. 



* LOAD ADDR. * 

* OF NVSERR * 

* ERR RTN INTO * 

* LINKR4 * 
***************** 



.* FIRST *. 
. * EXTENT * 
.SPECIFY LOGL 
*. UNIT .* 



.* EXTENT 
*. IN 

♦.SEQUENCE 



.* ENOUGH 
ROOM IN 
*. LABEL 
♦.AREA .* 



***** * yes 

*BH * **** 
* C2** * . 

* * * C2 *.X. 
* * * . 

NVSERR **** 

FESYSX3 X 

*****C2 ********** 
♦PUT LOGICAL UNT* 
NO *INTO EXTENT AND* 

*.... ♦ SPECIFY THIS * 

♦UNIT AS DEFAULT^ 
♦IN NEXT EXTENT ♦ 
***************** 



X 

***** 
*HC * 
* B2* 



*****C3********** 

* SET FILE ♦ 

* SERIAL FROM * 

* VOL. SERIAL ♦ 

* NUMBER * 

* * 
***************** 



**** 

* * 

* D2 +.X 



***** 
*HS * 
* C3* 



V2 **** 
FEVSER X 

*****D2 ********** 
♦FSCAN HB* 

*-*-*-*-*-*-*-*-* 

* GET VOL * 

* SERIAL ♦ 

* OPERAND ♦ 
***************** 



*****£ i********** 

* SET DEFAULT ♦ 

* VALUES FROM * 
♦CURRENT EXTENT * 

* DEFAULT * 

* TABLE *A5 ♦ 
***************** 



*****P1********** 

♦FSCAN1 HB+ 

*_*_*_*_*_*_*_*_* 

♦ GET SYSXXX ♦ 

♦ OPERAND ♦ 

♦ * 
***************** 



.♦ OPERAND ♦. YES 
♦. OMITTED ...... 

♦. .♦ 



FEVSER2 

*****P2 ********** 
♦FETINSR1 HC* 

*_*_*_*_*_*_*_*_* 

♦ INSERT SERIAL ♦ 

♦ NO. IN OUTPUT ♦ 

♦ BLOCK ♦ 
***************** 



G2 ♦. 

.♦ ♦. 

♦ FIRST ♦ 

EXTENT 



**** 

* * 

♦ C4 ♦. 



..X 



FETYPE X 

***** 03********** 

♦ SET DEFAULT ♦ 

♦ VALUE FOR ♦ 

♦ EXTENT TYPE ♦ 

♦ TO 1 ♦ 

♦ * 
***************** 



*_*_*_*_*_*_*_*_* 



***************** 



**** 

* * 

* D2 ♦ 

* * 
**** 



FESYSX2 

*****H i********** 
♦CNUNCO GS^ 

*_ *_ *_*_*_*_ *_*_ * 

♦CHECK, CONVERT ♦ 
♦SYSXXX TO LOG. ♦ 
♦UNT. CLASS, ORD+ 
***************** 

♦K3 



H2 ♦. 

.♦ ARE ♦. 

LOGICAL 

UNITS THE 

. SAME 



.♦. 


FEVSER3 .*. 


Jl ♦. 


J2 *. 


.♦ *. 


.♦ WAS ♦. 


♦ FIRST *. 


YES .*VOL SERIAL *. 


EXTENT .♦ 


...♦.SPEC. ON LST .♦ 


♦ . .♦ 


♦. EXTENT .♦ 


♦ . .♦ 


*. .♦ 


*. .* 


X ♦. .♦ 


* NO 


***** * no 




♦BM ♦ 




♦ C2* .X 


X 


♦ ♦ 


**** 


♦ • 


* * 


NVSERR 


* B2 * 


FEVSER4 X 


* * 


*****K2 ********** 


**** 


♦ SET DEFAULT ♦ 




♦VALUE FOR NEXT ♦ 




♦EXTENT TO VALUED 




♦ OF THIS VOL ♦ 




♦ SERIAL NO. ♦ 




***************** 



YES .* 


OPERAND 


...♦. 


LENGTH GT 


♦ 


1 




♦ . .♦ 


X 


♦ . .* 


***** 


♦ NO 


♦ BM ♦ 




* C2+ 




* * 




* 




NVSERR 


X 




.♦. 




G3 ♦. 




.* * 


.♦ 


OPERAND 


*. 


OMITTED 



FILE 

TYPE EQ 

SD 



EXTENT ♦. 
TYPE EQ 
1 .♦ 



FETYPED .♦. 




D5 ♦. 




.* * 




NO .♦ FILE 


* 


...♦. TYPE EQ 




. *. DA 


* 


♦ . .♦ 




X ♦. .♦ 




***** ♦ YES 




♦ HK ♦ 




♦ Bl* 




* * 




* 




FETYPEI X 




.♦. 




E5 ♦. 




.* * 




NO .♦ EXTENT 


'* 


X....^. TYPE EQ 





* YES 




***** 
*HS * 
♦ C2* 
* * 
* 
NLSERR 




* YES 


X 








X 


*****P4********** 




*****P5********** 


* PUT 128 


* 




♦FESEQ HL^ 


* INTO EXTENT 


* 




*- 


*_*_*_*_*_*_*_* 


♦ TYPE FIELD 


* 




* 


PROCESS AND ♦ 


♦IN OUTPUT BLK. 


* 




* 


INSERT EXTENT ♦ 


* 


* 




* 


SEQ OPERAND * 


***************** 




***************** 



*_*_*_*_*_*_* 

♦ CONVERT ♦ 

♦ TO * 

♦ BINARY * 
***************** 



FETYPEI 

*****G4* ********* 
♦FESEQ HL* 

*_ *_ *_ *_ *_ *_*_*_* 

* PROC. EXTENT * 

* SEQ OPERAND * 

* * 
***************** 



*****j 3********** 

♦ * 

♦ STORE EXTENT * 

♦ TYPE IN * 

♦ OUTPUT BLK. ♦ 

♦ * 
***************** 



***** 
♦HS ♦ 
* CI* 



**** otsei 

♦K3 
THE CODING FOR THIS 
ROUTINE APPEARS IN 
THE SJOBCTLK PHASE. 
THE CHART REFERENCED 
IN A DIFFERENT PHASE 
REPRESENTS LOGIC 
IDENTICAL TO THAT FOUND 
IN THE SJOBCTLK PHASE. 



***** 
♦HK ♦ 
♦ F2 + 
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Chart HK. $JOBCTLK - EXTENT Statement Processor (Part 2 of 
Refer to Chart 14. 



3) 



***** 

*HJ * 
* D5* 



GT.2 .* EXTENT 
.*. TYPE EQ 0, 
*. 1 OR 2, 
*.GT 2 .* 



.♦. 



X 
***** 
*HS * 
* C2* 



CI 

.* *. 
* FILE *. YES 
TYPE EQ ...... 

*.IND, SEQ .* 
*.EXF. .* 



*****B2 ********** 
♦FESEQ HL* 
*-*-*-*-*-*-*-*-* 

* GET SEQ * 

* OPERAND * 

* * 
***************** 



SEQ ** 
# OR 



*** 

* * 

• * CO * 

* w * 

*** 






**** 

* * 

* B4 * 

* * 
**** 


X 

.*. 

B3 ♦ . 

•* * 

.* FIRST 

EXTENT 

♦ . 

*. .* 


**, 

.♦" 


NO 


FESPLIT X 

*«***Q4********** 

♦FSCAN FB* 
*_*_*_*_*_*_*_*_* 

* GET SPLIT * 

* CYLINDER * 

* OPERAND * 



*. 



* NO 



***** 
*HJ * 
* G4* 



***** 
*HS * 
* C2* 

* * 



*****C3********** 

* RESET IMMED. * 

* OPERAND AT * 

* FESPLIT3 * 

* INDICATING EXTS* 

* NOT OMITTED * 
***************** 



**** 

* * 

* D3 *.X 



*****0l********** 
♦FESEQ HL* 
*_*_*_*_*_*_*-*_* 

* GET EXTENT * 

* SEQ NO. * 

* * 
***************** 



.♦ 
*. 
*. 



SEQ 


*. 


YES 




H OR 




*.... 




1 


* 






.* 








. .♦ 




X 




* NO 




***** 








♦HS * 


**** 






* C2* 


* * 






* * 


* F2 *. 


X 




* 
NLSERR 


* * 
**** 



LSERR **** 

FETKNO X 

*****D3********** 

♦FETKTK HL* 
*-.*_*_*-*_*_*_*_* 

* GET AND * 
♦CONVERT NO. OF * 

* TRKS. OPERAND * 
X ***************** 

**** 



♦ Gl * 

* * 
**** 



*. .* 

* NO 
**** 

* * . 

* Gl *.X. 

* * . 
**** X 

FESEQCK .*. 

Gl *. 

.* *. 

.* EXTENTS * 

*.IN ASCENDING 

*. SEQ .* 

*. .* 

*. .* 

* YES 



***** 
*HS * 
* CI* 



FETK 

*****P2********** 

* SET IMMEDIATE ♦ 

* OPERAND AT * 

* FESPLIT3 TO * 

* FF INDICATING * 
♦EXTENTS OMITTED* 
***************** 



*****G2 ********** 
♦FETKTK HL* 

*_*_*_*_*_*_*_*_* 

♦GET AND CONVERT* 
* RELATIVE ♦ 

*STRT. TRK OPND.* 
***************** 



E3 ♦. 
.* * 

.♦ OPERAND 
*. OMITTED 
*. 



HIGH 

TRK GT 

19600 



X 
***** 

♦ BM ♦ 

* C2* 



NVSERR 

*****G3********** 

* * 

* STORE HIGH * 

* TRACK NO * 

* FOR OUTPUT ♦ 

* * 
***************** 



* F2 * 










.*. 


FETKN01 X 




* * 










H2 *. 


*****H3********** 


**** 










* *. 


♦TEST FOR START * 






YES . 


*' 


OPERAND ♦. 


* TRK. AND TRK. * 








*. 




OMITTED .♦ 


♦ NO. BOTH ♦ 










*. 


.* 


♦PRESENT OR BOTH* 












*. .* 


* NOT PRESENT * 






X 






*. .♦ 


***************** 






**** 




* NO 








* 


* 












* D3 


* 












* 


* 












**** 


















X 


X 


FETYPEI4 .*. 










.♦. 


.♦. 


Jl *. 










J2 *. 


J3 ♦. 


.* *. 










* *. 


.* *. 


.* EXTENTS 


*. 


NO 




*' 


START *. YES .♦ BOTH ♦. YES 


..X*. EQ TO 4 




*.... 


*' 




TRK GT .* 


♦. PRESENT .*.... 


*. 


** 






*, 


19600 .* 


. *. .* « 




*. .* 










♦ . .* 


*. .♦ 




*. .* 




X 






*. .* 


X ♦. .♦ 




* YES 




***** 






* NO 


***** * NO 








*HS * 








*BM * 




I 




* G2* 

* * 








♦ C2* 

* * 








* 








* . 




X 




NLSERR 






I NVSERR X 




.*. 










X 


.*• 




Kl *. 






****: ********** 


K3 *. 




.* * 






* 




PUT START * 


.* *. 




.* FILE 


*. 


YES 


* 




TRACK IN ♦ 


NO .* BOTH *. YES 




*. TYPE0IND. 




*... . 


* 




OUTPUT ♦ 


...♦. NOT PRESENT .♦..X 




*.SEQ. EXP. 


** 




* 




BLOCK * 


♦ . .♦ 




*. .* 






* 




* 


*. .♦ 




*. .* 




X 


***************** 


X ♦. .♦ X 


* NO 




***** 
*HJ * 






I 


***** * **** 
♦ HS ♦ ♦ * 


I FETYPE1 * G4* 








♦ C2^ NLSERR ♦ B4 


X 




* * 






X 


* * * i 


**** 




* 






**** 


* **** 


* * 










* * 




* B2 * 










* B3 * 




* * 










* * 




**** 










**** 







******** 



.♦ 

,* 
NO 



***** 
♦HS ♦ 

♦ C2 + 



EXTENT 

TYPE EQ 

128 

♦ . .♦ 



**** 

* * 

* E5 ♦ 



*****E4********** 
♦NUMCON HR* 

*_*_*_*_*_*_*_*_* 

♦ CONVERT ♦ 

♦ TO ♦ 

♦ BINARY ♦ 
***************** 



NLSERR ♦♦** X 
FESPLIT2 .*. 

E5 ♦. 

.♦ *. 

.* BLANK ♦. 

♦. END LAST 

♦. SCAN .♦ 



*****P5********** 
♦SCANR3 BF* 

*_*_*-*_*-*-*_*-* 

* GET B* * 

♦ PARAMETER * 



*****G4********** 

* STORE SPLIT ♦ 
♦CYLINDER STRT. ♦ 

♦ TRK. NO. FOR ♦ 

♦ OUTPUT ♦ 

* * 
***************** 



**** 

* * 

* E5 * 

* * 
**** 



***************** 



EQUAL *. 
SIGN END 
. SCAN .♦ 



***** 
♦BM ♦ 
* C2^ 



*****H5 ********** 
*FEBIN1 HB+ 

♦ ~ PROCISS ♦ 

♦ B#BINS ♦ 

♦ OPERAND ♦ 
***************** 



*****j4********** 

* ♦ .^EXTENT ♦. 

* CLEAR EXTENT ♦ YES .♦ LIMITS ♦. 

* LIMITS FOR +X *OMITTED ON 1ST$* 

* THIS EXTENT * *. EXTENT .* 

* * *. .* 
***************** *. .* 



***** 
*HH ♦ 
* G2 + 
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APPENDIX B: ERROR MESSAGE CROSS REFERENCE 



Messaqe 


Phase 


Chart ID 


lA9nD 
1C00A 


$JOBCTLD 
$JOBCTLA 


0I00A 


$$A$IPL2 


AB 


1C10A 


$JOBCTLA 


0I01A 


$$A$IPL2 


AD 




$JOBCTLG 


0I10A 


$IPLRT2 


AK 




$JOBCTLJ 


0I11I 


SIPLRT2 


AQ 


1C30A 


$JOBCTLJ 


0I12I 


$IPLRT3 


AT 


lC3nI 


$JOBCTLG 


0I13I 


$IPLRT3 


AR 


1C70D 


$JOBCTLA 


0I14I 


$IPLRT3 


AV 


1C80D 


$JOBCTLA 


0I15I 


$IPLRT3 


AR 


1I00A 


$JOBCTLA 


OI16A 


$IPLRTU 


AX 


1I50I 


$JOBCTLA 


0I17A 


$IPLRTU 


AX 


1I70I 


$JOBCTLA 


0I18A 


$IPLRT2 


AK 


1I8 3A 


$JOBCTLM 


0I20I 


$IPLRT4 


AY 


1I8UA 


SJOBCTLM 


01 221 


$IPLRTU 


AZC 


1I8 5A 


$JOBCTLM 


0I23I 


$IPLRT4 


AZ 


1I86A 


$JOBCTLM 


0I24A 


$IPLRT3 


AU 


1I87A 


§JOBCTLM 


0I25I 


$IPLRTU 


AY 


1I88I 


$JOBCTLJ 


lAOnD 


$JOBCTLD 


CC,CD,CE f 


1I89I 


SJOBCTLM 






CG,CH,CJ 


1I90D 


$JOBCTLM 


lAlnD 


$JOBCTLD 


CA r CB 


11 9 ID 


$JOBCTLM 


lA2nD 


$JOBCTLD 


CA f CB,CH f 


1I92D 


$JOBCTLM 






CL # CP 


1I93I 


$JOBCTLM 


1A20D 


$JOBCTLG 
$JOBCTLJ 


FB 
GB,GE 


1L00D 


$JOBCTLK 


lA3nD 


$JOBCTLD 


CG f CR 


1L10D 


$JOBCTLG 


lA4nD 


$JOBCTLD 


CA r CL F CH r CW 




$JOBCTLK 




$JOBCTLF 


DD # DF 


1P00D 


SJOBCTLG 


1A40D 


$JOBCTLJ 


GS 


1S00A 


$JOBCTLA 




$JOBCTLK 


HQ 




through 


lA5nD 


$JOBCTLD 


CP 




$JOBCTLM 




$JOBCTLF 


DP 


1S00D 


$JOBCTLG 


1A50D 


$JOBCTLJ 


GS 




$JOBCTLM 


lA6nD 


$JOBCTLD 


CA 


1IS03I 


$JOBCTLJ 




$JOBCTLF 


DM 


1S10D 


$JOBCTLG 


lA7nD 


$JOBCTLD 


CA 




$JOBCTLJ 




$JOBCTLF 


DK 




$JOBCTLK 


1A70D 


$JOBCTLJ 


GE 






1A90D 


$JOBCTLF 


DL 







CE 

BL 

BL 

FG 

GD 
GB,GM 

FG 

BE 

BL 

BB 

BL 

BM 

JB 
JA,JJ 

JD 
JD,JF,JG f JM 

JE 

GJ 
JP # JQ 

JP 

JQ 

JQ 

JN 
HF,HG f HJ f 
HK # HL,HM 

FE 
HG f HJ,HP 

GQ 
See BM-B1 

FG 

JH 

GN 
EF f EN f FE 
GD f GN 

HA,HC,HF,HG, 
HJ^HK^HP 
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APPENDIX C: 



EXPLANATION OF FLOWCHART SYMBOLS 



DESCRIPTION 



A GROUP OF PROGRAM INSTRUCTIONS 
THAT PERFORM A PROCESSING 
FUNCTION OF THE PROGRAM. THE 
LABELt IF ANY* IS SHOWN ABOVE 
THE BLOCK. 



BB-D4, INITL1 
BC-B2, 0PENX4 
Bl-Jl, ENOPRN 



•••••C !••••••••• 

•LABEL1 BW 

•—•-•—•—•—•-•-•— 
• SUBROUTINE 



• PREPARATION 



• •PREDEFINED • • 

* • PROCESS • • 



IF ANY ADDITIONAL EXPLANATION 
IS REQUIRED. ITS LOCATION ON 
THE CHART IS IDENTIFIED BY AN 
ASTERISK AND THE BLOCK ID. 



DESCRIPTION OR TITLE OF A ROUTINE 
THAT IS DETAILED ON ANOTHER 
FLOWCHART. THE STARTING LABEL OF 
THE ROUTINE AND THE FLOWCHART ID 
APPEAR ABOVE THE STRIPE. 



AN INSTRUCTION, OR GROUP OF 
INSTRUCTIONS, THAT CHANGES 
PORTIONS OF A ROUTINE OR 
INITIALIZES A .ROUTINE FOR 
GIVEN CONDITIONS. 



A GROUP OF OPERATIONS NOT 
DETAILED IN THE FLOWCHARTS 
IN THIS MANUAL* SUCH AS 
USER'S ROUTINES. 



C4 • . 

* 

ERROR 



•••••C5**«****** 
•ERRTN BG 

.X* ERROR ROUTINE 



E<t •. 
USER "•. 


YES 


•••••E5*******««* 

• • • • 

• • • • 


• • • 




». • • • 
• • • • 


• NO 

!x 





INPUT/OUTPUT 



Gl •. 
• • • 

DECISION 



• •••H !.••••••••• 

• TERMINAL • 



ANY FUNCTION OF AN INPUT/OUTPUT 
DEVICE OR PROGRAM, USUALLY 
BRANCHING TO AN I/O ROUTINE TO 
PERFORM THE FUNCTION STATED IN 
THE BLOCK. 



POINTS WHERE THE PROGRAM 
BRANCHES TO ALTERNATE PROCESSING, 
BASED UPON VARIABLE CONDITIONS 
SUCH AS PROGRAM SWITCH SETTINGS 
AND TEST RESULTS. 



F4 ♦. 


••F5****»«* 






.• RECORD • * YES 


•MODIFY PRINT 


*. ALTERED .» 


.X* INSTRUCTIONS 






• • •• 


• 


•NO 


: 


Ix 


• 


X 




RECPRO .♦. 




G4 •. 




• • •• 




.♦ALL RECORDS*. NO 




«. PROCESSED 








• • ■• • 




• . .* X 




•YES ••••• 




•BL • 




• Al« 




• • • 




• 




PRINT 




•*»»H4»»»»»»«»« 




• • 




• END OF JOB • 




* • 





• ••• 

• « 

• 1 • 

• • 

• ••• 



ON-PAGE CONNECTOR. Ahj ENTRY 
FROM, OR AN EXIT TO, ANOTHER 
FUNCTION ON THE SAME FLOWCHART. 
THE NUMBER IN THE CONNECTOR 
IDENTIFIES THE CORRESPONDING 
ENTRY OR EXIT ON THE CHART. 



OFF-PAGE CONNECTOR. AN ENTRY FROM, 
OR *N EXIT TO, A GIVEN POINT ON 
ANOTHER FLOWCHART. THE CHARACTERS 
IN THE CONNECTOR IDENTIFY THE 
CHART AND BLOCK. THE CORRESPONDING 
LABEL, IF ANY, IS PLACED OUTSIDE 
THE CONNECTOR. FOR MULTIPLE ENTRIES 
AND EXITS. AN ASTERISK APPEARS IN 
THE CONNECTOR AND THE CHARACTERS 
ARE LISTED NEARBY. 
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Key to Communications Region Displacement: 



GD 



QD 



58 



Job control byte 

Bit 0: 1 = Job Accounting 

Interface (J A) not supported 

= Job Accounting 

Interface (JA) is supported 
1 : 1 = Return to caller on LIOCS disk open failure 

= Do not return to caller on LIOCS disk open failure 
2: 1 = Job control input from SYSRDR 

= Job control input from SYSLOG 
3: 1 = Job control output on SYSLOG 

= Job control output not on SYSLOG 
4: 1 = Cancel job 

= Do not cancel job 
5: 1 = Pause at end-of-job step 

= No pause at end-of-job step 
6: 1 = SYSLOG is not a 1052 

= SYSLOG is a 1052 
7: 1 = SYSLOG is assigned to the same device as SYSLST 

= SYSLOG is not assigned to the same device as SYSLST 

Linkage control byte 

Bit 0: 1 = SYSLNK open for output 

= SYSLNK not open for output 
1: 1 = S or FG program phase deleted, renamed, or cataloged (flag bit for SMAINEOJ) 
2: 1 = Allow EXEC 

= Suppress EXEC 
3: 1 = Catalog linkage editor output 

= Do not catalog linkage editor output 
4: 1 = Supervisor has been updated 

= Supervisor has not been updated 
5: 1 = Executing in AUTOTEST mode 

= Not executing in AUTOTEST mode 
6: 1 = Reallocate or condense in progress 
7: 1 = Fetch SMAINEOJ at end of fob to update system directory 

= Do not fetch SMAINEOJ at end of job for update 

Language processor control byte. This is a set of switches used to specify nonstandard language translator options. 
The switches within the byte are controlled by job control OPTION statements and when set to 1 , override standard 
options. The format of this byte is identical to the stnadard option byte (displacement 54) with one exception: 
Bit 7 in this byte is used to indicate to LIOCS that the rewind and unload option has been specified. 



I 59 I Job duration indicator byte 



Bit 0: 1 = Within a job condition 

= Outside a job condition 

1 : 1 = Dump on an abnormal end-of-job condition 

= No dump on abnormal EOJ 

2: 1 = Pause at EOJ step ) ■ ■ ' 

A _ ki . C/ ~ . > bet by Attention Routine tor Job Control 

- No pause at EOJ j ' 

3: 1 = Job control output on SYSLST 

= Output not on SYSLST 
4: 1 = Job is being run out of sequence with a temporary assignment for SYSRDR 

= Conditions for 1 setting not met 
5: 1 = PCIL is being condensed 

= PCIL is not being condensed 
6: Reserved 
7: 1 = Batch command fust issued 

= Condition for 1 setting did not occur 



Figure 10. Supervisor Communications Region (Part 4 of 5) 
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Page of GY24-5086-4,, revised October 28 # 1971, by TNL GN33-8686 



Key to Communications Region Displacements: 



Binary disk address of the volume label area (label cylinder). 



EW3 




As illustrated (Figures for information blocks, I/O tables, and pointers 
begin at Figure 21 which refers to more detailed Figures). 



79 



88 



90 



92 



94 



96 



98 



Set to the value nn specified in the LINES = nn parameter of the STDJC macro. 

The format of the system date contained within this field is determined by the IPL program from information supplied In the 
date convention byte (displacement 53). Bytes 85- 87 contain the day count. 

Bytes reserved for use by LIOCS. Transient dump programs insert a key to indicate to the LIOCS end-of- volume routine, 
$$BCMT07, that it was called by a B- transient. 

Address of the first part of the program information block (PIB) table. (See Figures 18 and 19). 

ID number of the last checkpoint. Temporary indicator of file protected DASD. Used at IPL time/ when DASDFP 
is specified. 

Length of the LUBID queue (in bytes). This equals the number of channel queue entries. It can also be used to access the 
REQID, LUBDSP, and TKREQID queues: ( See GY24-5151 ). 

Address of disk I/O position data. This is the starting address of the disk information block (DIB) table (See Figure 17). 

Address of the beginning of the error recovery block. The error recovery block contains addresses of error recovery exits, 
error recovery queue information that can be used by physical transients routines, and defines storage for the error queue 
entries (See Figure 43- GY24- 5151). / 



100 



104 



106 
108 
110 



112 



135 



Option Tables. ( See GY24-5151 ). 

Key of the. program (BG, F2, or Fl) that has timer support. 

Address of LUBID queue. ( See GY24-5151 ). 

Logical Transient Key (LTK) contains the same value as the PIK (PID) (Displacement 46) when the logical transient is 
requested. When the transient area is not in use, LTK is equal to zero. The SVC 2 routine sets the LTK. The SVC 11 
routine resets the LTK. 

Supervisor constants: 

DOLLARBO (4 bytes) = C'SSBO' 

SSKADR (5bytes) = XL5'0' 

LTAREA (3 bytes) = Adcon of LTSVPT, logical transient save pointer 

Address of second part of program information block (PIB) table (See Figure 20). 
Address of PDTABB, table of DTF addresses for MICR support. 
Address of QTAM vector table (I J LQTTAD). 
Address of background communications region. 
Option Indicator Byte 

Bit 0: 1 = MCRR indicated for OBR writer 

= No MCRR indicated for OBR writer 
1: 1 = EU interface active 

= EU interface not active 
2: 1 = TP request 

= No TP request 
3: 1 = Supervisor support for only 9- track tape 

= Supervisor does not support 9- track tape exclusively 
4: Reserved 
5: 1 = RETAIN/370 support generated 

- RETAIN/370 support not generated 
6- 7: Reserved 

System Configuration Byte 2 

Bit 0: 1 = PCIL supported 

= PCIL not supported 
1- 7: Reserved 

Pointer to communications region extension (See Figure 11). 



Figure 10. Supervisor Communications Region (Part 5 of 5) 



222 DOS IPL and Job Control 



Key to SDR Communications Region Displacements: 



32 



36 



40 



44 



s 






104 



108 
112 
116 

ill 

156 
160 
To4 
168 



Address of SDR accumulator area which contains half -byte counters and accumulated error conditions. 

Address of SDR unit switches. 

SDR switch byte (1 for each PUB): 

X'80' - Update operations complete 

X'40' - Counters on external file overflowed 

X'20' - I/O error during write 

X'08' - SDR update half -byte counters routine required 

X'04' - Update SDR record routine required 

Other - Reserved 

When entry contains X'01 000000', indicates MCRR, no SDR supported. 

Reserved . 

SDR1 register save area. 

Mask formats for interpretive error accumulator, SDR1: 

X'FF' -End of update 

X'FE' - Bypass counter 

X'FD 1 - Set up 'OR' condition to previous counter 

X'FC - Ignore list item 

Other - Test bit in error queue 

Used by the interpretive error accumulator routine to process list passed by OBR/SDR A -transient. 

Used by the interpretive error accumulator routine. 

Used by the interpretive error accumulator routine for address alignment . 

Executed by the interpretive error accumulator routine. 

Loop counter for the SDR counter update . 

Save area for pointers to entries in the SDR error queue. 

Work area where half byte error counters are unpacked and updated. 

List of devices passed to the SDR processor and $$ANERAD. 

Used by SDR/OBR recorder phases to pass error message displacements and disk error addresses in event of an error. 

Entry point from OBR/SDR A -transients. Branches to label SDRMM. 

Pointer into the OBR/SDR unit switches. Status posted by recorder phases. (See byte 36). 

OBR and SDR records formatted by the recorder phases. 



Figure 12. SDR Communications Region - SDRTABLE (Part 2 of 2) 
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to 


*l 


to 


H- 


ON 


iQ 




C 




H 


D 


(D 


O 




CO 


r- 1 




CJ 


H 


• 


^ 




t< 






o 


J» 


o 


3 


* 


Pi 


3 




OJ 


c^ 


3 





Uj 


cr 






O 


o 


O 





3 


3 


ft 


ft 


H 


n 


O 


o 


M 


M 






W 




H 




O 




O 




* 




^•x 




o 




o 




D3 



Count 
1 


Transmission 

Information 

2 3 


CSW Status Bits 
4 5 



Symbolic Unit 
Address 
6 7 



Reserved for 
Logical IOCS 



Residual Count 



CCW Address 
9 11 



Reserved for 
Physical IOCS 
12 



CCW Address 
in CSW 
13 15 



Transmitting 
Information 
Between Physical J 
IOCS and 



(Note 1) 
Byte 4 



I BIT DESIGNATION 



Problem Program | 32 Attention 

| 33 Status modifier 
I 34 Control unit end 
I 35 Busy 
| 36 Channel end 
I 37 Device end 
■ 38 Unit check 
39 Unit exception 



Byte 5 ^^-.^J 



BIT DESIGNATION 



40 Program -controlled . 
interruption 

41 Incorrect length , 

42 Program check i 

43 Protection check I 

44 Channel data check I 

45 Channel control check ' 

46 Interface control check , 

47 Chaining check , 



Hexadecimal j 

Representation I 
of SYSnnn • 

SYSRDR =0000' 
SYSIPT = 0001 ' 
SYSPCH =0002' 
SYSLST =0003' 
SYSLOG = 0004 ' 
SYSLNK =0005' 
SYSRES =0006« 
SYSSLB =0007, 
SYSRLB =0008 
SYSUSE =0009' 
SYSREC =000Al 
SYSCLB =000B| 
SYS000 =0100 
SYS001 = 0101 ' 
SYS221 =01DD» 



Buffer Offset: , 
ASCII Input Tapes| 
X'OO'-XW | 



ASCII Output | 
Tapes Fixed: | 

X'00' i 

Variable: X'00'orl 
X'OA' . 



Address of CCW X'80'-CCB being 
Associated with used by ERP 
this CCB , 

.X'40'-Channel 
I Appendage 
(Routine Present 
I for Teleprocessing 
Device 



Optional 
Sens* CCW 



16 



Undefined: X'00' 



I 

. X '20' -Sense 
. Information 
Desired 

I X' 10' -Message 
I Writer 

I 

'XW-EU Tape 
1 Error 

»X'02'-Tape ERP 

I Read Opposite 

I Recovery 

I 

|X'0r-Seek 

I Separation or 

| Console Buffering | 



Address of CCW 
in the CSW 
Stored at 
Channel End, 
or Address of 
the Channel 
Appendage 
Routine for 
Teleprocessing 
Devices 



8 Bytes 

Appended to the 
CCB when Sense 
Information is 
Desired 







^ -*•-"" 






Byte 


2 






"^ ^_ 




Traffic Bit 
(Wait) 


End -of -File 
(/*or/&) 
3211- 

UCSB Parity 
Check (Line 
Complete) 


Unrecoverable 
I/O Error 


Accept 

Unrecoverable 

I/O 


Return DASD 
Data Checks 
2671 errors, or 
1017/1018 
errors to the 
user 


Post at 
Device End 


Return Tape Read 
Data Check, 1018 
Data Check, 2540 
or 2520 Equipment 
Check, DASD 
Data Checks on 
Read or Verify 
Command, or 3211 


User Error 
Routine 






(Note 5) 


(Note 2) 








(Note 5) 


Passbook Requested 
(Notes 3 & 6) 











1 


2 


3 


4 


5 


6 


7 




By-^ 


Set On 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 


Pr.Pr. 


Pr. Pr. 











Byte 3 










DASD- 


DASD- 


DASD- 


2540, 2520- 


Non -Recovery 


No -Record - 


Carriage 


Command 




Dafa Check in 


Track Overrun 


End of Cylinder 


Equipment Check 


Questionable 


Found Condition 


Channel 9 


Chaining 




Count Area 


MICR - 


MICR- 


Tape- 


Condition: 


(Retry on 2311, 


Overflow or 


Retry from 




MICR- 


Intervention 


(Note 4) 


Read Data Check 


Card- 


2314, or 2319) 


Verify Error 


the next CCW 




SCUNot 


Required 


1287/1288- 


DASD- 


Unusual 




for DASD 


to be executed 




Operational 


1285/1287- 


Hopper Empty 


Any Data Check 


Command 










1285/1287/1288 


Key board 


in Document 


1285/1287 


Sequence 




1287 Document 






Data Check 


Correction in 


Mode 


Equipment Check 


DASD- 




Mode - Late 






3211- 


Journal Tape 


3211- 


1017/1018 


No Record Found 




Stacker Select 






Print Check/ 


Mode 


Line Position 


Data Check 


1285/1287/1288- 










Equipment Check 


1017- 


Error 


3211- 


Document Jam 




1288 -End of 








Broken Tape 


(Note 7) 


Print Check/ 


or Torn Tape 




Page 








3211- 




Data Check 


3211- 












Print Quality/ 






UCSB Parity Check 












Equipment Check 






(Command Retry) 













1 


2 


3 


4 


5 


6 


7 


Set On By-»- 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


PIOCS 


Pr.Pr. | 



PIOCS = Physical IOCS 

Pr . Pr . = Problem Program 
Note 1 . Bytes 4 and 5 contain the status bytes of the Channel Status Word (Bits 32-47). If byte 2, bit 5 is on and device end results as a separate interrupt, device end will be ORed into CCB byte 4. 
Note 2. Indicates /* or /& statement encountered on SYSRDR or SYSIPT . Byte 4, bit 7 (unit exception) is also on. 
Note 3. DASD data checks on count not returned . 

Note 4. For 1255/1259/1270/1275/1412/1419, disengage. For 1275/141 9D, I/O Error in external interrupt routine (channel data check or busout check). 
Note 5. The traffic bit (Byte 2, bit 0) is normally set on at channel end to signify that the I/O was completed. If byte 2, bit 5 has been set on, the traffic bit and bits 2 and 6 in byte 3 will be set on 

at device end. Also see Note T. 
Note 6. 1018 ERP does not support the Error Correction Function. 
.Note 7. This error occurs as an equipment check, data check, or FCB parity check. 
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PIB TABLE 



Byte 
Number 



10 



11 



12 



13 



14 



15 



16 

Byte 

Length 



All 

Bound 

PIB 'V 



Flag 
Byte 
See A 



Reserved 



SP Prefix 



Branch Instruction to the 
All Bound Routine 



Reserved 



Problem , 

pi 
Program 

PIB 

(Notel) * 



Flag 
Byte 
See B 



Cancel 
Code 



SYSLOG ID 
(BG, F2, or Fl) 



NOP 
Instruct- 
ion 
(CR) 



Address of the 
Partition Save Area 



Number 

of Core 

Blocks 

(Note 2) 



Address of the Origin 
of the Partition 



PIB 
Assign 

Flag 
See D 



User 

LUB 

Index 



Number 

of 
Program 

LUBs 



Flag 
Byte 
SeeC 



Attention 
PIB 



&|? 



Flag 
Byte 
See E 



Cancel 
Code 



SYSLOG ID 
(AR) 



Branch 
Code 
(BC) 



Active=Address of 
Save Area 



Inactiv 



= Remainder of 
BC Instruction 



Switch 

Byte 
See F 



Logical Transient Bucket 
(contains save 
area address) 



X'07 1 
See D 



Reserved 



Address of 

the Logical 

Transient 



Quiesce |o ( ^ 

PIB ^y 



Flag 
Byte 
See A 



Cancel 
Code 



C'/&« 



Branch Instruction to 
Quiesce I/O Routine 



Scratch 

Byte 
X'00' 



Channel PUB Table Index Values 



X'00' 



X'04' X'08 



X'OC» X'10' X»14' 



X'18' 



Supervisor * \ 
PIB 



Flag 
Byte 
See A 



Cancel 
Code 



SP Prefix 



Branch Instruction to 
General Exit Routine 



Address of 
SYSRES PUB 



Length of Error 
Queue Entry 



Constants to Clear Bytes 
2-5ofCCB 



X'lF' 



X'05' 



X»00' 



X'00' 



Subtask 
PIB for APrl 
(Note 3) i 



Flag 
Byte 
See B 



Cancel 
Code 



SYSLOG ID 
(BG, F2, or Fl) 



NOP 
Instruc- 
tion 



Address of the 
Save Area 



Number 
of Core 
Blocks 
(Note 2) 



Address of the 
Origin of the 
Main Task 



PlB 
Assign 

Flag 
See D 



User 
LUB 
Index 



Number 

of 
LUBs 



Flag 
Byte 
SeeC 



{Background PIB 
Forearound 2 PIB 
Foreground 1 PIB 
When a batch-only environment is established at generation time, the All Bound and Foreground PIBs are excluded from the table, and only 
one (BG) problem program PIB is built. However, the X'20' bytes that F2 and Fl PIBs normally occupy (between PIBBG and PIBAR) are 
filled with 32 bytes of DIBs data. 

Note 2: Number is in multiples of 2K for F2 and Fl . BG is always 10K (X 1 0A'). 

Note 3: Total of nine subtask PIBs are generated, and only when AP is specified at generation time. 

* See Figure 16 for flag byte expansions A, B, C, D, E and F. 

** See Supervisor PLM, GY24-5151 

Bytes 90 and 91 (X^A'-'SB 1 ) of the communications region contain the address of the first part of the PIB Table. Label PIBTAB identifies the first 
byte of the table. 

Figure 18. First Part of PIB Table 
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Supervisor, Quiesce, and ALL Bound PIB Flags: 







BitO 
1-4 

5 

6 


1 = Always one 

= Always zero 

1 = Always one 
1 = Active 


7 


= Inactive 

1 = Active 




= Inactive 



Note: If PTO = YES is specified, Bit 6 is a one in the 
Quiesce I/O PIB when, attached by the super- 
visor. Otherwise it is always zero. 



B 


Problem 


Program PIB Flag (First Byte in PIB): 




BitO: 


1 = Registers stored 




= Registers not stored 


1-3 : 


= Always zero 


4 s 


1 = QTAM Wait active 




= QTAM Wait inactive 


5 : 


= Normal execution 




1 = Program has seized the system 


6 : 


1 = Unbound 




= SVC 2-bound (B-transient in progress) 


7 : 


1 = Unbound 




= SVC 7-bound (waiting for an I/O interrupt) 


X'80 


indicates the program is not present in the system 


X'87 


indicates the program is PTO bound 


X'89* 


indicates the program is IDRA bound 


C Problem 


Program PIB Flag (Last Byte in PIB): 


Bit 0: 


1 = Batched Job in Foreground 




= No BJF 


1: 


Cancel in LTA and Device not Assigned 


2: 


1 =/&on SYSIN if DASD 




0= No/&on SYSIN 


3-4: 


Reserved 


5: 


1 = Task is cancelled 




= Task not cancelling 


6: 


1 - Subtask (s) attached 




= No subtasks attached 


7: 


1 - In AB Routine 






= Not in AB Routine 



□ 







PI.B Assign Flag 

X'80 = SYSRES DASD file protect inhibited (allow write 

operation on SYSRES) 
X'40' = Channel appendage exit allowed (BTAM) 
X'20' = Cancel in progress (used in terminator function) 
X 1 10' = Cancel" control (set on a foreground cancel) 
X'08' = Hold-Release flag for foreground assignments 
X'07' = Supervisor or Attention routine PIB assign flag setting 
X'04' = Background program PIB assign flag setting 
X'02'.~ Foreground 1 program PIB assign flag setting 
X'01' = Foreground 2 program PIB assign flag setting 

Attention PIB Flag 

Bit 0: 1 = Registers stored 

~ Registers not stored 
1-5 : = Always zero 

6 : 1 = Attention routine active 

- Attention routine SVC 2-bound 

7 : 1 = Active 

- SVC 7-bound 

X'80' indicates the attention routine is not present in the system. 
X'89' indicates the program is IDRA bound 

Attention PIB* Switch Byte 

Bit 0-2: Reserved 

3: 1 = PTAFTCH (Fetch SSANERRY, Z, or 0) Switch ON 
= PTAFTCH (Fetch SSANERRY, Z, or 0) Switch OFF 
4: 1 = Detach Logical Attention Routine (SSBATTNA) 
Switch ON 
= Detach Logical Attention Routine (SSBATTNA) 
Switch OFF 
5: 1 = Physical Attention Recall Switch ON t 

= Physical Attention Recall Switch OFF 
6: 1 = Attention Request Switch ON 
= Attention Request Switch OFF 
7: 1 = External Interrupt Request Switch ON 
= External Interrupt Request Switch OFF 



Figure 19. PIB Flag Expansions 
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Note 1; The TEBV (Tape Error Block by Volume) 
Table is composed of one Status Block and (n) Error 
Blocks,, and is addressed symbolically by label 

TEBVTAB. 



Supervisor generation options in the F0PT macro 
determine the size of the TEBV Status Block at 
generation time: 



When EVA is chosen without ESTV, the TEBV 
Status Block is four bytes long (bytes 0-3) , 
followed by TEBV Error Blocks, so that bytes 
4-21 are omitted. 



• When ESTV output is to SYSLOG, the TEBV Status 
Block is six bytes long (bytes 0-5), followed 
by TEBV Error Blocks, so that bytes 6-21 are 
omitted. 



• When ESTV output is to DASD, the TEBV Status 
Block is 22 bytes long (bytes 0-21, such as 
shown in this Figure) , followed by TEBV Error 
Blocks. 



N ote 2 : The number of TEBV Error Blocks generated 
corresponds to the (n) parameter of the FOPT macro 
for TEB, TEBV, or EVA options. A TEBV Error Block- 
always contains 18 bytes, as shown in bytes 22-39 
of this Figure. Therefore,, the TEBV Table is 
composed of one TEBV status Block (with its byte 
length dependent on supervisor generation options,, 
as described in Note 1), followed by (n) number of 
1 8-byte TEBV Error Blocks. 



Figure 21. TEBV Table Showing Status Block and Error Blocks 
(Part 2 of 2) 
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NICL 
System 
BG 
F2 
Fl 
= number of units 
i = index displacement 
within LUB table 



n 




n 








n 






n 






n 








KEY: 

NICL (Number in Class) 

FICL (First in Class) 

LUB (Logical Unit Block) Table 
PUB (Physical Unit Block) Table 

FOCL (First on Channel List) 

TEB (Tape Error Block by Unit) 
TEBV (Tape Error Block by Volume) 

FAVP (First Available Pointer) 
JIB (Job Information Block) 

CHANQ (Channel Queue) Table 













TEBV 

























































































TEB 











































THFLPTR 




LUB REQ LUB TKREQ 
ID ID DSP ID 











TKHDTAB 







































































































































































































































































































: The first byte contains the number of system class units. The second, third, and fourth bytes contain the number of 
programmer class units (BG, F2, Fl) (Figure 15). 

: The first byte points to the first system class unit in the LUB table. (Always the first LUB table entry. ) The second byte 
points to the first programmer class unit in the LUB table BG area. The third points to the first programmer class unit 
in the LUB table F2 area. The fourth points to the first programmer class unit in the LUB table Fl area (Fi-gure 15). 

: The first byte points to a PUB table entry (if the logical unit is assigned) or contains X'FF 1 . The second byte points 
to a JIB table entry or contains X'FF 1 (Figure 15). 

: The first two bytes contain the channel and unit address of the physical device; the third a CHANQ pointer; the 
fourth a TEB pointer; the fifth device type codes; the sixth a device characteristic code or a SAB pointer; the seventh 
the channel scheduler flag; and the eighth has the job control flag (See Figure 14). 

: The first byte points to the first PUB (highest priority) on channel zero. The next byte points to the first PUB (highest 
priority) on channel one, etc. A hexadecimal FF indicates the associated channel is not supported. 

: One TEB is built for each tape unit at supervisor generation time if tape error statistics by unit are required (Figure 16). 

: One TEBV is built for each tape unit at supervisor generation time if tape error statistics by volume are required 
(Figure 21). 

: A one-byte pointer to the next available JIB entry. 

: The first two bytes contain extent or LUB information. The third contains ownership and JIB flags. The fourth contains 
JIB chaining information (See Figure 23). 

: The first byte contains the chain field (a pointer to the next in queue). The last three bytes contain the CCB address* 



LUBID (LUB Identification) 
REQID (Requestor Identification) 
LUBDSP (LUB Displacement) 
FLPTR (Free List Pointer) 
SAB (Seek Address Block) 

TKHDTAB (Track Hold Table) 

THFLPTR (Track Hold Free List Pointer) 
TKREQID (Track Requestor Identification) 



: A one-byte pointer to the LUB making the I/O request. 

: A one-byte pointer to the program containing the CCB* 

: A one-byte value equal to the absolute LUB number (CCB byte 7). 

: A one-byte pointer to the next free entry in the channel queue? 

: A four-byte (BCCH) address that is the current disk address of the device plus a fifth byte that contains a Track Hold 
Table pointer of X'FF'. If the Track Hold function is not supported, the fifth byte contains X'OO' . 

: The first byte contains a pointer to the next available entry (or X'FF'); bytes 2-4 have CCB address of the requesting 
task; bytes 5-10 have a disk address (BBCCHH) of track being held; byte 11 has key. of owning track; and byte 12 has 
two uses: bit 0=1 means a task is waiting for the track, and bits 4-7 count the number of holds on the track* 
Note: The number of holds is one more than the value of bits 4- 7 of the last byte . 



: A one-byte pointer to the next free entry in the Track Hold Table. 
: A one-byte pointer to the PIB of the task requesting I/O. 



*See Supervisor PLM, GY24-5151 



Figure 22. I/O Table Interrelationship 
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JIB Table 




JIB 1 




JIB 2 




JIB 3 




JIB 4 




JIB 5 




JIB 6 





Note: 



Number (length of JIB table) 
determined at supervisor generation 














1 


2 


»i 



Two JIBs are required for a 2321 extent; one for lower 
limit and one for upper limit. The lower limit defining 
JIB must be chained to the upper limit defining JIB. 
Byte 1 of this type JIB contains the subcell number 
times 10 plus the strip number in binary. 



Type of Entry 



Stored standard 
assignment 



Alternate 
assignment 



2311 Extent 



(7) 2321 Extent 



LUB entry of stored 
standard assignment 
(PUB and JIB pointers) 



PUB pointer 
of alternate 
assignment 



XW 



c L c L c H C H (f) 



Bi Bi Ci C 



L D L ^L ^L ^ 
H B H C H C H ^ 



(jj Only when file -protect on DASD 

(5) Lower Cylinder 
Upper Cylinder 



Flag Type 


Bit 


Meaning if Bit = 1 


Contents 





Stored standard assignment 


1 


Alternate assignment 


2 


2311 Extent 


3 


2321 Extent 


4 


Standard assignment for 
DASD extent 


Ownership 


5 


Background 


6 


Foreground 1 


7 


Foreground 2 



Chain Byte. 

Contains the displacement 
index of the next JIB. 
A hexadecimal 'FF' defines 
the end of the chain. 



(5) Cell or combined subcell and strip 
Figure 23. Job Information Block (JIB) Table 



Bytes 68 - 69 (X'44' 
the JIB table entry. 



'45') of the communications region contain the address of 
Label JIBTAB identifies the first byte of the table. 
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Displacement 


Label 


Description 


0-3 


ACCTWK1* 
(ACCTABLE)* 


Work area used in SIO update. 


4-7 


ACCTWK2 


Work area used with ACCTWK1 in start/stop time routine 


8-11 


ACCTSVPT 


Job card pointer; address of job card field following jobname. 


12 


ACCTPART 


ID of partition in charge (partition switch name). 


13 


ACCTRES2 


Reserved . 


14-15 


ACCTLEN 


Length of SIO area = 6n+l, where n = number of devices for this partition in SYSGEN option JA = (nl, n2, n3). 


16-21 


ACCTLOAD 


Label area instruction; moves JAI label area address to OPEN/CLOSE transients. 


22-23 


ACCTRES3 


Reserved . 


24-27 


ACCTLADD 


Address of alternate label area. 


28-31 


ACCTCPUT 


Counter for CPU time elapsed in a jobstep, counted in 300ths of a second. 


32-35 


ACCTOVHT 


Counter for overhead time; time not charged to any partition. 


36-39 


ACCTBNDT 


Counter for all- bound time; system wait state time divided between running partitions. 


40-47 


ACCTSVJN 


Save area for job name during simulated EOJ. 






JOB ACCOUNTING TABLE (user's portion of Partition Table) 


48-55 


AGCTJBNM 


Job name; taken from job card. 


56-71 


ACCTUSRS 


User information; 16 bytes from Job card. 


72-73 


ACCTPTID 


Partition ID; 'BG', 'F2', or 'Fl' in EBCDIC format. 


74 


ACCTCNCL 


Cancel code; see Cancel Codes and Messages (in Supervisor and Related Transients, GY24-5151). 


75 


ACCTYPER 


Type of record: 'S' = job step, 'L , = last step of job. 


76-83 


ACCTDATE 


Date in format specified at SYSGEN (MM/DD/YY or DD/MM/YY). 


84-87 


ACCTSTRT 


Start time of job, in packed decimal (OHHMMSSF; F=sign). 


88-91 


ACCTSTOP 


Stop time of job, in same format as ACCTSTRT 


92-95 


ACCTRES 


Reserved . 


96- 103 


ACCTEXEC 


Phase name; taken from execute card. 


104- 107 


ACCTHICR 


High core address of active program phase, from COMREG. 


108-111 


ACCTIMES 


CPU time elapsed in a job step; counted in 300ths of a second. 


112-115 




Overhead time; elapsed time not charged to any partition, in 300ths of a second. 


116-119 




All - bound time; system wait state time divided between running partitions, in 300th s of a second. 


120 


ACCTSIOS 


SIO tables: 6 bytes for each device specified by SYSGEN options, as follows: 2 bytes for device address (Ocuu), 
4 bytes for count of SI Os in current jobstep. 

Overflow byte: normally X'20 1 , but is X'30' if more devices are used within a partition than specified by 
SYSGEN options. 




•Note: DSE 
itsc 


CT ACCTABLE $) 
>wn JAI Partition 


mibolically addresses the JAI Partition Tables with labels as shown. Each partition in which JAI is supported has 
Table, labeled ACCTBG, ACCTF2, ACCTF1, for active partitions BG, F2, and Fl respectively. 



Figure 24. Job Accounting Interface Partition Table 
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READER'S 
COMMENT 
FORM 



This sheet is for comments and suggestions about this manual. We would appreciate your 
views, favorable or unfavorable, in order to aid us in improving this publication. This form 
will be sent directly to the author's department. Please include your name and address if 
you wish a reply. Contact your IBM branch office for answers to technical questions about 
the system or when requesting additional publications. Thank you. 



Name 
Address 



What is your occupation? 



How did you use this manual? 
As a reference source 
As a classroom text 
As a self-study text 



Your comments* and suggestions: 



We would especially appreciate your comments on any of the following topics: 



Clarity of the text 
Organization of the text 



Accuracy 
Cross-references 



Index 
Tables 



Illustrations 
Examples 



Appearance 
Printing 



Paper 
Binding 



GY24*5086-4 



YOUR COMMENTS, PLEASE ... 

This manual is part of a library that serves as a reference source for systems analysts, 
programmers and operators of IBM systems. Your answers to the questions on the back of this 
form, together with your comments, will help us produce better publications for your use. Each 
reply will be carefully reviewed by the persons responsible for writing and publishing this 
material. All comments and suggestions become the property of IBM. 

Please note: Requests for copies of publications and for assistance in utilizing your IBM sys- 
tem should be directed to your IBM representative or to the IBM sales office serving your 
locality. 
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